UN NOUVEL AMSTRAD , UN NOUVEL APPLE , 

UN NOUVEL ATARI , UN NOUVEAU THOMSON 

ET PAS DE NOUVEAU RATON LAVEUR . 

Am s trad, Apple, Atari et Thomson annoncent, presentent. commercialisent ou cachent leur dernier rejeton. 
Sont-ce vraiment des nouveautes ? 



La langue francaise a des subtilites 
qui ravissenl les puristes et semenl 
le douie et la perplexite dans les 
rangs des cancres a cote des radia- 
teurs et des etrangers en visile dans 
noire doux pays Poutquoi ne dit-on 
pas un nouveau Apple, un nou- 
veau Atari, un nouveau Amstrad 
et un nouvel Thomson 'Poutquoi 
cette compiexile dans la construc- 
tion des mots, pourquoi ajouter des 
pieges aussi grossiers dans cede 
langue qui est deja une des plus 
difficiles a assimiler |uste apres le 
chinois et le Boznie-herzegovien ° 
Pourquoi ? Pourquoi tant de 
cruaute ? Parce que le Nouvel 
Apple, le Nouvel Atari et le Nouvel 
Amstrad ne sont pas nouveaux du 
tout alors que le Nouveau Thomson 
est un peu plus nouveau. mais pas 
trop quand meme Mais, alors. 
qu'est-ce a dire ? Comprends-ie 
bien ? Tous les nouvels ne sont pas 
nouveaux alors que le nouveau 
l"est "> 



berge Revenons aux closes pas 
serieuses et laissons aux grammai- 
tiens le soin de disserter sur ce 
sujet. Peu nous importe que Ton 
dise un nouvel Apple ou un nou- 
veau Apple, I'essentiel pour nous 
est de (aire remarquer a nos lee- 
teurs que le nouve Apple lie nest 
pas tout a tail nouve.. . ainsi que 
I Atan 130 XE qui nest pas tres 
nouv ... non plus, pas plus que 
l Amstrad 664 qui n'a de nou... que 
son lecteur de disquettes integre. 
Par contre, le Thomson T09. lui est 
bien nouveau mais n'est pas plus 
nouvel que les autres et. en plus, 
les gens de Thomson ne veuient 
pas qu on en parte jusqua I'ouver- 
ture ou Sicob. 

ATARI 130 XE, BEAU 

Cut-la e'est le plus beau de tous. un 

look d'enfer que meme si tu veux 
pas d'ordinateur chez toi, tu te 
I'achetes pour dScorer. A part ca. 



— 
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ASPIRINE, PLEASE 

Houla, e'est mal parti. Si on se met 
a metlre en doute meme les regies 
fondamentales de notre propre Ian- 



pour la nouveaute, tintin : e'est un 
800 XL avec 138 Ko coupes en 
deux fois 64 Ko comme I'Apple lie. 
le Thomson T09 et quantite de 128 
Ko qui ne sont que des 2 x 64 Ko 
Tous les peripheries et tous les 



sa*-« 



C'est nouveau, ca vient de sortir : 

L'actualnede la micro -tntormatique Lire pages 9,10. 



DEULIGNEURS 

Les faineants , page 1 1 



CINOCHE-TELOCHE 
pages 14 et 15. 



FORMATION A L ASSEMBLEUR 

Le prof et lamateur eclairs vous attendent a la page 19 




logiciels des anciens rnodeles sont 

compatibles avec ce p'tit jeunot 

Le 130 XE nest pas 

encore annoncG par Atari 

France pour la bonne 

raison qu'Atari France on 

sait plus si ca existe 

vraiment. mais il est deja 

disponible chez les paralie- 

listes meme que celui 

que nous avons tripote et 

dont vous pouvez voir la 

photo de dos c'est Electron 

a Paris qui nous la prete 

et qui 

pouvoi 

vous 



vendre 

incessamment sous 
peu pour la modique 
somme de 2500 et queJques francs. 
La photo de tace en noir c'est Jack 
Tramiei qui nous I'a donnee la se- 
mame derniere a Hanovre. regardez- 
la avec respect, s'il vous plait. Dieu 
i'a touched ' Tiens en passant, pour 
les luturs ou les anciens posses- 
seurs de drive Atari, Electron attend 
un logiciel qui laccelere deux tois 
en lecture et trols fois en ecriture 
et, par-dessus le marche qui double 
la capacity des disquettes forma- 
lees : 160 Ko par face Voila qui est 
nouveau ' 

AMSTRAD 664 KIF-KIF 

Le nouvel Amstrad est le meme que 
I'ancien sans lecteur de cassettes 
mais avec un lecteur de disquettes 
a la place. II coute environ 5000 
Irancs avec un monileur noir et 
blanc et 6000 francs avec un moni- 
leur cou/eur La disquetie 3 pouces 
160 Ko formates par face qui 
I'equipe est le standard le plus dif- 
fuse en France mais Sony arrive 
avec son standard 3 pouces et demi 
qui sera (theonquement) plus stan- 
dard que ga. En attendant, a ce 
prix-la. avec ces caractenstiques-la 



et la montagne de softs deja arrives 
ou en preparation on ne tail pas 



mieux. 

C'est pas nouveau ni 

nouvel. mais le CPC 664 c'est tout 

bon et tout bel. 

APPLE He, c'est nouvel ca ? 

Ma maman est Napolitame et mon 
papa Corse, la reponse que je ferai 
a cette inquietante question sera si- 
tuee plus a I'Ouest, elle lleurera bon 
ie Calvados et la bouse de vache, 
reponse de Normand done : c'est 
p'tet ben nouveau. p'tit ben non. 

EXTERIEUR JOUR 

Le nouvel Apple lie est exterieure 
ment le meme que I'Apple Me ac 
tuel meme lorme, meme couleui 
meme pomme multicoiore. Le cla 
vier de I'ancienne version etait bi 
standard. AZERTY et QWERTY 
commutable par un interrupted 
situe sous le clavier. Le nouveau 
clavier fonctionne de la meme 
facon. avec le meme interrupteur. 
seui le marquage des touches est 
different : il ne comporte plus que 
les caracteres francais AZERTY. 



INTERIEUR IIC 



A I'interieur de la bfjeane, c'est 
I'Apple lie qui squatle les circuits 
ce nouveau lie. Le 6502 est 
remplacfi par le NCR 65C02, micro- 
processeur C-MOS qui equipe deja 
le He. Les ROMS moniteur, genera- 
trice de caracteres et gestion du 
clavier sont egalement inspirees du 
lie. 

Ce micro-processeur est presqu'en- 
tierement compatible avec les logi- 
ciels de I'ancienne gamme et bien 
evidemment compatible a 100 % 
avec les logiciels qui tournent sur 
lie 

UNE SOURIS ? ICONE PAS ! 

Les principaux avantages de ces 
changements viennent de ia stan- 
dardisation entre le Me et le lie et la 
possibilile pour le nouveau He d'uti- 
liser la souris. les icones et les 
menus deroulants A condition 
d avoir une souris qui, vous vous 
en doutez, n'est pas gratuite surtout 
chez Apple. A condition egalement 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater. modifier, trafiquer. magouiller. 
bidouiller et grenouiller avec les logiciels du monde entier. 
Mais dans la legalite, au moins ? Of course, mon general I 
Lire page 9 



de disposer de logiciels utilisant les 
icones et les menus deroulants et 
des logiciels comme ga yen a pas 
des masses, un Me ou un He ne 
sera jamais un Macintosh et heu- 
reusement ! 

ET MON DEUZEU ? 

Sen, ton He ancien. tu as trois pos- 
sibility 

1) Tu le jettes pour acheter un He 
ou un Me news. 

2) Tu le tranformes en lampe de 
chevet 

3) Tutepayesun Kit demise a niveau 
qui te coute 1000 balles environ Le 
kit en question comprend le 65C02. 
2 ROMS moniteur. une ROM gene- 
ratrice de caracteres, une ROM de 
gestion de clavier et une poignee de 
touches. Le tournevis n'est pas 
fourni mais ia documentation est 
aussi abondante et luxueuse que 
d' habitude 

Le Kit et le nouveau deuzeu (au 
meme prix que I'ancien) serant la 
en mai. 

Suite page 16 




CONCOURS PERMANENTS 

Votre programme, non content de vous rapporter 1.000 
francs par page publiee. peut vous rapporter 20.000 
francs cheque mois ou un voyage en Califomie pour deux 
cheque trimestre. Reglement en page interieure. 



DES PROGRAMMES POUR VOTRE ORDINATEUR : 
AMSTRAD . APPLE lie et lie . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatibles . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
SHARP PC 1500 . TEXAS TI-99/4A. THOMSON T07, TO7/70, ET M05. 



^SHA 
N°81 



Allemagne 3,50 DM - Belgique 77 Frs - Canada 2,50 S - Luxembourg 74 Frs - Suisse 3.30 Frs - 



10F 



JEU DE CHA SSE I^W3^i 



Impenitentpetit gourmand, que ta faim de pastilles ne 
te fasse pas oublier la presence malfaisante de sempi- 
ternelles araignees voraces... 

Daniel BULLY 
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FOUR HECTOR 2HR + 



90 . .... ....■! Mil I.OM1.J 

100 "Mini, iiiimiiini 

110 '■• ■« 

120 't* 1ERE PARTIE . « 

130 '«f GENERIQUE PRESENTATION t* 

140 '•* . . 

ISO ii.iiii.iiiiiiiiiiii mi 

160 • 

170 color6,5.4.3:screenl,230,240 1 230icls2:bnghtlip 
enO 

1B0 AS*"J E U":Y=150:CL«3:forI-lto2igosubl90inext:A 
f" D E "iY=120:CL»l:forI-lto2:gosubl90:next:AS»"C 

H A S S E": Y=90:CL=3: forI=lto2:gosubl90:neKtsgoto20 

190 forX«10tol 15-3*1 en < A*) step2i output A*. X.Y.CLi out 
put A*. X,Y, 2 s output AS, X*2, Y,CL:next: return 

200 farX3ito240:plotX, 180, l:plotX, 17B, 3i pi ot241-X, 5 
0, l:plot241-X,52,3:next:farY=lto230:plot55,Y, ljplotS 
7,Y,3:plotl80,231-Y,3:plotlB2,231-Y,l:next 

210 line61, 173, 176, 173,0 1 1 i nel76, 37, Os line6 1,57,0: 1 
ine61, 173,0:line63. 171 , 174, 171,0: 1 lnel74, 59,0: 1 i ne63 
,59,0iline63, 171,0 

220 linel, 130,240, 180, 2: linel, 178,240, 178, 2: 1 inel ,5 
0,240,30,2:lin»l,52,240,52,2iline55, 1,35, 230, 2i 1 ineS 
7. 1.57, 230, 2: I inel 80, I , ISO, 230, 2i 1 i net 82, 1, 182,230,2 

230 XI-61:X2»176:Y1=37(Y2«173 

240 Xl=-Xl-2:X2-X2i-2:Yl-Yl-2:Y2-Y2+2 

230 ifXK13thengoto270 

260 lin*Xl,Yl,Xl,Y2,0: 1 ineX2, Y2,Oi l meX2, Y1,0: lineX 
I , Yl,0:goto240 

270 plot 16, 21B, 205, 206, 2i screen 16, 218, 203, 206icls2 

280 d*t*VOULEZ-VOUS,DES EXPLICATIONS -\0 - OUI.N - 
NON 

290 Y-150irestare2B0:forZ-lto4:re*dASioutputAS, 115- 
3a 1 en (AS) , Y,0:Y-Y-20mext 

300 RS-instrS(l) t ifRSO"o"andRS<Vn"thengoto300 

310 ifR*>"n"thengoto440:elcecls 

320 d*t*VOUS ETES UN CHASSEUR. ... POUR VOUS DIRIGER, 
DANS LE LABYRINTHS, UTILISE! LE CONTROLEUR GAUCHE,, VO 
US DEVEZ ATTRAPER.LES VITAMINES QUI APPARAISSENT 

330 Y- 195: restare320i for Z-lto7:re*dAS: output AS, 117- 
3*1 en (AS) , Y,Oi Y"Y-15i next 

340 outpufFIRE POUR CONT INUER. ..", 59, 23, Ol output M F 
IRE POUR CONTINUER. .. ",60, 24, i 

350 i f f i re (OX >0thengoto3S0i el sec 1 s 

360 colar5,0,5, ltdataMAIS ATTENTION NE VOUS FA 

ITES PAS CROQUER.PAR LES ARAIGNEES , NE SEJOURNEZ 

PAS TROP LONGTEMPS.ENTRE DEUX COULOIRS... 

370 Y-193irestore360: f or Z-lta9i readASi outputAS, 1 17- 
3*1 en (AS) , Y.Oi Y-Y-13ins>xt 

380 outpufFIRE POUR CONTINUER ",39,25, lioutpufF 

IRE POUR CONTINUER. ..", 60,23, 1 i output "FIRE POUR CONT 
INUER. .. ",61,25,3 

390 iff ire (OX >Othengoto390i el seels 

400 color6,0,6,3idataV0US AVEZ QUATRE VIES PAR PART 
IE..FAITES POUR LE MIEUX.EN SACHANT QUE :,, MANGER UNE 

VITAMINE -*10 PTS.SE FAIRE CROQUER —10 PTS.RATE 
R UNE VITAMINE — 2 PT8 

410 Y- 1 95 : r estor e400tf or Z-lto8t readASi output AS, 1 17- 
3* lent AS) , Y.Oi Y-Y-15mext 

420 outpufFIRE POUR CONT INUER. ..", 39, 23, 1 1 outpufF 
IRE POUR CONTINUER. .. ",60,23, 1 : output" FIRE POUR CONT 
INUER. . .",61,25,0 

430 if f ire(0X>0thengoto430 

440 color6,0,6,3:dat>APPUYER SUR LECTURE .PUIS FIRE 

.POUR CHARGER LA SUITE. 

450 els: Y=150irestore440iforZ=lto3: Y-Y-15: readAS: ou 
tputAS, 1 17-3*1 en (AS) , Y, 1: output AS, 1 17-3* I en (AS) *1 , Y, 
1: output AS, 117-3*len(A*)+2,Y,0:next 

460 if f ire(O) <>0thengota46Oi el seels 

470 dataCHARGEMENT EN COURS . . . 

480 Y- 1 20 :restore47Q: read AS: output AS, 1 17-3*1 en < AS) , 
Y, 1: output AS, 1 1 7-3*1 en ( AS) +l,Y,Ji output AS, 11 7-3*1 en ( 
AS)+2,Y,0 

490 load 



20 ' *********** *(*ttt ************ s*a 

30 ■*• ,, 

40 '«• JEU DE LA CHASSE *t 

SO ■<* DEUXIEME PARTIE tt 

60 '*« PROGRAMME PRINCIPAL *l 

70 '*• ■ < 

80 '****t***********)t**tSltt**lt*t* 

90 * 

100 gosubl820:gosubl960 

110 wipe: col or 6, 5, 4, 3ibri ght 1 : screen 16,218, 205, 206i 
cls2: penl : gosub 1430 

120 gosubl 130: restore220:gosub330 

130 ' 

140 '**•*•***■*<***>>>********•***** 

150 •** DEPLACEMENT ARAIGNEES *« 

160 iiimiiiiiii.iiuuimiiinii 

170 * 

ISO ifM2=18andN2=2thenrestore22C 

190 ifM=IandN=Jthengosub930:goto200:elseifpoint (X (M 
) , Y IN) ) -2thengosub950 

200 i f M2= I andN2=Jthengosub940: return: el self point (X ! 
M2) ,Y(N2> ) =2thengosub960r return 

210 re*dM,N,M2,N2 

220 data4, 11, 19,2,4, 11,19,3,4, 11, 19.4,3. 11, 19,3,6, 1 
1, 19,6,7. 11. 19,7. B, I 1. 19,8,9, I 1. 19.9. 10,1 1, 19, 10. 10, 
11, 19.11, 10, 11. 19. 12, 11. 11,19. 13. 12.11. IB. 13. 13,11, 1 
7,13. 14, 11,16. 13, 15, U. 13. 13, 16, II. 14, 13. 17,11. 13. 13 
, 17. 11. 12. 13 

230 dat«17, II, 11,13, 17. 10, 10. 13, 17.9.9, IT, 17. B. 8, \-- 
, 17, 8. 7. 13, 17. B. 6, 13, 17, 7. 5, 13. 17, 6. 4, 13. 17. 5.3, 13, 1 
7.4,2. 13, 17,4,2. 12. 17,4.2, 11. 16.4.2, 10. 13.4.2.9, 14.4 
,2, 8, 13, 4, 2, 7, 12, 4. 2. 6. 11. 4, 2, 5, 10,4,2.4 

240 datal0,4.2,3. 10. 4, 2. 2. 9, 4. 3. 2. 8. 4. 4, 2. 7. 4. 5, 2. 6 




HECTOR 



,4,6 



,4.8, 14. 



, 15 



■ 9, 17. 



250 ifM=IandN=Jthengosub930:goto260: el self point ( X m 
) , Y (N> ) =2thengosub950 

260 ifM2=IandN2= J thengosub940: returns el seif point (X ( 
M2) , Y(N2) )=2thengosub960: returni el sereturn 

270 ' 

2S0 '***•*******»*** ****** ******** 

290 *** BASE DU PROGRAMME * ** 

300 '** DEPLACEMENT BONHOMME ** 

310 -***•****************•(******** 

320 * 

330 outputchr*(192> , X (1) ,Y(1 > ,3: outputchrS( 192) ,X I 1 
) ,Y(14),3:outputchrS(192) , XI20I ,Y(1) , 3:outputchrS< 19 
2),X(20) , Y(I4),3:S0-0iSl-0:T-0:M*4iN«lliM2-19iN2«2:N 
P-4igosubS20isound3,95i outpufF I RE SVP. . . ", X (13) , Y 12 
J-3,3 

340 1* f Ire (OX >0thengoto340: el sesoundO, 4096: output " 
FIRE SVP...",X(13) ,Y(2)-3,0igosubl040 

330 outputchrS(192) ,X(I) , Y ( J) , 3: outputchrS ( 194) , X (M 
) ,Y(N) , 1: outputchrS 1 194) , X (M) , Y (N) , Ol outputchrS ( 193) 
, X(M2> ,Y(N2),1 i outputchrS (193) , X (M2) , Y (N2> ,0 

360 T-T+lt if T»13thengosub760igasub630:goto400 

370 if T-23thengosub560:goto400 

380 if T-35thengosub630tgoto400 

390 if T>-43thenT-4:gosubS60: if point (X (A) . Y(B) >-2the 
noutputchrSt 193) , X (A) , Y (B) , OiSl"S0-2:gosub820 

400 gosubl BO 

410 if joy (0X>0thenoutputehrS(192> , X ( I ) , Y( J) , Oielse 
goto350 

420 on joy(0)goto430, 440, 350, 450, 350, 350.350,460 

430 I-I-l igosub470:gosub700:goto350 

440 I-I*ligosub480igosub700:goto350 

430 J-J + l i gosub490: gosub700t goto350 

460 J"J-1 tgasub500igosub700igoto350 

470 if I<lthenI«20treturnielseifpoint(X(I),Y(J>)-lth 
enl-I+l i return i el sereturn 

4B0 if I >20then I«l: returni el seif point (X(I),Y(J))=Ith 
en 1 -I- 1 1 returni el sereturn 

490 if point (X(I) ,Y(J) )-lthenJ«J-l:return: el sereturn 

300 ifpoint(X(I>,Y(J> ) »lthenJ»J*l i return: el sereturn 

310 * 

320 '•****•*)*)*******•****(•*))**) 

330 ••* OUVERTURE/FERMETURE PORTES* 

340 llllllllllllliillliiiiimim 

330 • 

360 CL-Oi Al-5:Bl~7:gosub620: AI=9: Bl=10!gosub&20: Al = 
BiBl-3igosub620:Al-18:Bl=9:gosub620 

570 CL-Is Al-3:Bl="9:gosub580:gasub620: Al = 13: 61 = 12: go 
subSB0igosub620: Al=12: Bl=5:gosub580:gasub620: Al=16: B 
I-7igosub380:gosub620: return 

380 If point IX (Al) ,Y(B1 > ) =3thenplotX (AI ) ,Y(B1) ,8, 12, 
It outputchrS (192) ,X(A1) , Y(B1) ,3: gosub610: S1=S0-10: go 
sub820i if NPOOthengo«ubl040: ret urn: el segoto 1320 

390 if point (X!A1),Y(B1> ) =2thenpl ot X ( Al ) , Y (Bl ) .8,12, 
It outputchrS ( 193) ,X (Al) , YCB1) , 2i gosub610: SI -S0~2t T=4 
: gosub820i return 

600 return 

610 forZ-100ta5Q0step20:toneZ, lOmex t : plot X (Al ) , Y(B 
1),B, 12, l:plotX(Al)*l,Y(Bl)-2,6,B,0:return 

620 plotX(Al) ,Y(B1),8. 12,CLiplotX(Al)+l,Y(Bl)-2,6,B 
,0:return 

630 CL-0iAl«3tBl«9igosub620iAl-13:Bl-12tgosub620iAl 
"12:Bl-3tgosub620iAl-16:Bl-7:gosub620 

640 CL-liAl-3iBl-7:gosub580tgo*ub620:Al>>9:Bl-10:gos 
ubSB0igosub620: Al»8iBl»3i : ga*ub5B0:gosub620i AlMBiBl 
■9: gosub5B0igosub620i return 

650 ■ 

660 '*•********•**********)***(((•« 

670 •** RENCONTRE BONHOMME i-VITAM. * 

680 ****** B***tt******)(***aa**aat* 

690 ' 

700 ifpoint(X(I) ,Y(J) >«2thenforZ=500tal00step-50:ou 
tputchr*(192) , XII) ,Y<J>, 1 i toneZ.5: outputchrS (193) ,X( 
I) , Y1J) , 2ioutputchr*(192) , X(I) , Y(J) , 3: next : outputchr 
S(193) , X(I) , Y(J) ,0:Sl=50+10igosubB20: T=4: return: el se 
return 

710 * 

720 "I***************************** 

730 ■*< APPARITION VITAMINE ALEA. t 

740 'Sttttt****t***t*tt*****<ttttt* 

730 * 

760 A-int(rntJ(l,21) ) j 8-int (rnd ( 1 , 15) ) : P=point (X (A) , 
Y (B) ) : ifP"lorP-3thengoto760:elseoutputchrSi 193) , X (A) 
,Y(B), 2: return 

770 * 

780 '*sa**t**t****tttlt*<***lttttat 

790 •** AFFICHAGE SCORE IMMEDIAT ** 

BOO iimiillmii itn.iiiiii 

810 ' 

820 1 fSO-OandSl-Othenreturn 

830 ifSK-OthenSl*0 

840 ifS0-;-0thenS0-0 

B5G SOS=str* ISO) ! S 1 «="«tr S IS 1 ) 

860 outputS0S.X(ll)-3-3*len(S0S).Y(B)-4,3:outputSlS 
.X(U)-3-3*len(SlS) . V (8) -4, 2: S0-S1 s return 

870 ' 

BBO > i ■ ■ i ■ • • > ■ i ■ i i • • • i ■ ■ ( i > i ■ i i ! i ■ 

890 •«* RENCONTRE ARAIGNEES « 

900 '«« AVEC VITAMINE ET BONHOMME * 

910 '*(*(**t*****ttt(lt*ll********* 

920 ' 

930 f or Z = l tolO: outputchr* (1 94), X(H),Y IN). 2isound3. 3 
50: outputchrS! 194) , X (M) , Y (N) . 0: outputchr S ! 192) , X (M) . 
Y(N) .0: next :Sl=S0-10:gosubB20: if NPOOthengosub 1040: r 
eturn:elsegotol320 

940 forZ=ltol0ioutputchrS(195) , X (M2) , Y (N2) , l:sound3 
.350: outputchrS (19S) . X IM2) . Y (N2) , 2i outputchrS ( 192) ,X 
(M2). Y(N2),0: next i outputchr* ( 195), X(M2) , Y (N2) , 1 :S1-S 
0-10:gosub820: if NP 0thengosubl040treturnielsegotoI3 
20 

950 f or Z»lto3: outputchr St 194) , X (M) , Y(N) , 1 : tone3000, 
5: outputchrS! 194 > , X (Ml , Y (N) , 3l outputchrS ( 1 93) , X (M) , Y 
(N) , 0: next: output chrS( 194) , X (M) , Y IN) , li Sl"S0-2i gosub 
B20:T*4sreturn 

960 forZ«lto3: outputchrS (195) , X (H2) ,Y(N2) , 1: tone300 
0, S: outputchr*! 195). X (M2> . Y (N2) , 3l outputchr S ( 193) ,X( 
M2) . Y(N2) , 0: next: outputchr S( 195) ,X!M2) , Y1N2) . Is SI -SO 
-2:go*ubB20i T«4: return 

970 * 

980 '***l*l*****t(t***ltls*Stttttt* 

990 ■** APPARITION BONHOMME *• 




1000 ■ ******************* *********** 

1010 ' 

1020 aound0,4096 

1030 tone300,100i outputchrS (192) , X (XP) , Y(YP) ,0i tn 
300,50: outputchr *( 192), X(XP),Y(YP),3itone300, 25: outp 
utchrS(192),X(XP),Y(YP),0itone300,10iplotX(XP),Y(YP) 
,B,12, l:pIotX(XP)+l,Y(YP)-2,6,8.0iNP-NP-l:I-IOiJ«9ir 
•turn 

1040 ifNP-4thenXP"l i YP-14I gosub 10201 return 

1050 ifNP-3thenXP»20:YP-14i gosub 1020i return 

1060 ifNP-2thenXP-liYP-ltgosubl020t return 

1070 i f NP"lthenXP»20i YP-1 1 gosub 1020: return 

1080 ' 

1090 ' a**************************** 

1100 ■** KISE EN PLACE LABYR1NTHE * 

mo '*********** *•*•**•*•■******* a 

1120 ' 

1130 col or 0,6, 1, 3i Ml pel screen 1,230, 240, 230tbri ght 

1140 forJ-ltol46tplotA(J) ,B(J),8, 12, 1 t plotA<J )*1 , B( 
J>-2,6,B,0tnext 

1150 plot X (9) , Y (8) ,38, 16, Is plot X (9) +1 , Y IB) -1 , 36, 14, 
0:plotX(9)*2,Y(8)-2,34, 1 2, 3i output" SCORE" , X (9) *3. Y ( 7 
) -4, 2: output" SCORE" , X (9) *4, Y(7) -5, 3i return 

1160 ' 

1170 ' tt* ********* I*t* *•***■**«)(•* 

1180 •*« APPEL JOUEUR SUIVANT •• 

ii9o ' ************ at t**)i**ii*sa*)s 

1200 * 

1210 onNUJgosubl230, 1240, 1250, 1260: els 

1220 pen l:outputNS, 120-3*1 en (NS) , 120, CL: tone500. 20: 
output" A TOI DE JOUER ...", 1 20-3*18, BO, 1 s outpufFI 
RE SVP. . . ", 130,20,CL*l:pen2:i-ff ire(0)O0thenCL"CL 
♦1 i got ol 220: el sereturn 

1230 N*=J ]•: return 
1240 NS-J2S:return 
1250 NS-J3S: return 
1260 NS=.J4S:return 
1270 * 

1280 '*s***sa***as*ta*****taaaa**** 

1290 "*a AFFICH. SCORE INDIVIDUEL a* 

1300 '******t«*****t*i*aaaaaatttaaa 

1310 ' 

1320 sound0,4O96:clsiforZ»50to200step20itoneZ t 60ine 
xt:Sl (NUJ)-SlsoutputN*. 120-3*1 en (NS) , Y ( 10) , 1 

1330 plotX!9) ,Y(8),38, 16, 1 iplotX (9) *1 , Y (8) -1 , 36, 14, 
0:pIotX!9)+2,Y!B)-2,34, 12, 3: output" SCORE FINAL", X (8) 
, Y(6) ,2: output" SCORE FINAL", X (8) +1 , Y (6) -1 , 3: SI S-str* 
(SI) : outputs! S, X( U)-3-3llen(SlS) , Y (B) -4, 2:pause4 

1340 els: ifNUJ-NJthengosub 1590i el segoto 1360 

13S0 cl si output "UNE AUTRE PARTIE* ■>", 1 13-3*18, 120, 1 1 
output" REPONDRE 0-OUI OU N-NON", 1 13-3*23, 100, 1 : R*-in 
strS(l) : ifRSO"o"andRS< >"n"thengoto 1350: else! f RS = ' 
thenqotol 10:el seels: end 



1390 iiiiiiiniiiiiiiiiiiiiiiiiiii 
1400 'tt RENTREE NOMS DES JOUEURS t 

:4io * aataa***tt**t**aai*aa******** 

1420 • 

1430 output" COMBIEN DE JOUEURS (4 MAXI) ''■■ , 25,50, 1 : 
RS«lnstrS(I) s ifRS-"l"orRS-"2"orRS-="3"orRS""4"thBnout 
putRS,200,50,lipoke65296,l:pen3(onv*l (RS)gosubl460, 1 
470. 1480, 1490: el segoto 1430 

1440 wipeicolor0,6, l,3icls0 

1450 NUJ-l:CL-t:gosubl210treturn 

1460 NJ-t:gosubl300ireturn 

1470 NJ-2: gosub 1500) gosub 1510: return 

1480 NJ -3: gosub 1300: gosub 13 lOi gosub 1520: return 

1490 NJ*>4: gosub 1500: gosublSlOi gosub 1320: gosub 1530ir 

1500 cursor 30, 200iinput"N0M DU 1ER JOUEUR : ";JlSi 
lfJIS-" "thenqotolSOOi el sereturn 

1510 cursor 30, lBOs input" NOM DU 2EME JOUEUR : ":J2S: 
if J2S=""thengotol310: el sereturn 

1520 cursor 30, 160: input" NOM DU 3EME JOUEUR : "jJ3S: 
if J3S=""thengot o 1520: el sereturn 

1530 cursor 30, 140iinpuf NOM DU 4EME JOUEUR : ":J4S: 
i f J4S=" "thengotol530: el sereturn 

1540 ' 

1550 '**•**************<***<*****<* 

1560 '** CALCUL+AFFICH. PALMARES *< 

1570 '**t*****aaa**aaa**aa**«*aattt 

1580 * 

1590 :fNJ=lthenreturn:elsef orZ»ltoNJ:S(Z) =S1 (Z) :nex 
t 

1600 forA-2toNJ:forB*ltoNJ-l 

1610 >fS(A) >S(B)thenswapS(A) ,S(B) 

1620 nextinext 

1630 A-ltB-1 

1640 if SI A) -SI (B)thengDSubl630: A-A*l: i f A»NJ * 1 thengo 
sub 1740: returni el seB-1: got ol640: el seB="B+ 1 :gotol640 

1650 ifB-lthenNS-JlSielseif B=2thenN*»J2S: el self B = 3t 
henN*-J3*ielseNS=J4S 

1660 linel 3, 9, 13,221 , 2i 1 i ne224, 221 ,2: 1 ine224, 9, 2i 1 l 
nel3,9,2ilinel5, 1 1 , 15, 219, 2i 1 ine222, 219, 2: 1 ine222, 11 
,2:linel5,ll,2 

1670 output" PALMARE S" . 45, 210, 2i outpu 
f P A L M A R E S", 44, 209, 1 : f or X=40tol90step 
6; plot X, 190,4,5, 1: pause. linext 

1680 SlS-strS(Sl (B) ) : onAgosubl690, 1700,1710, 1720n 
turn 

1690 RS-" PREMIER t " t Y- 160: gosub 1730: return 

1700 RS-" DEUXIEME :": Y=140:gosubl730: return 

1710 RS-" TR0ISIEME:":Y-120:gosubl730ireturn 

1720 RS-" QUATRIEME: ": Y- lOOl gosub 1 730: return 

1730 pause.3:outputRS,20, Y,3:pause. 3: outputSlS. 11 
3aien!SlS),Y,lipause.3:outputNS,160,Y,3:r»turn 

1740 f orX-15to200step50:outpuf BRAVO • " , X, Y-40, 1 : p 

•uM.Sanaxt 

1730 outpufFIRE POUR CONT INUER. ..", 39, 25, 2: output" 
FIRE POUR CONTINUER. .. ".60,25, 2: output "F IRE POUR CON 
TINUCR. ..",61,23,1 

1760 I f f ire (OX >0thengotol760: el sereturn 

1770 ' 

17BO <n iii.iniiiimu.ii.il 

1790 '•* CREATION DES TABLES )* 

leoo 'i***taaa*aaa**is********<***** 

1810 ' 

1820 dl«A(146>,B(146),X(20) ,Y(14) : I.J-0 

1830 forZ-20to210step!0: 1-1*1 : X ( I ) -Zsnex t i f or Z-25to 
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ALBERT 



COMMODORE 64 



Pauvre Albert, peindre des briques est assez triste, 
mats en plus de cela il faudra echapper aux terribles 
morsures d'infames serpents 111 

Gilles SIFFERT 



Mode d'emploi : 

II est dans le programme. 



l REn **•*••**••»•»••• 

3 REM * PROGPfirtHE CPEE * 

4 PEM .:.■■■■■■ 
3 REM * OILLES SIFFERT « 

6 REM * SUR * 

7 REM * COHfTODORE 64 • 

8 REM •• •• 

9 REM ..**••••. *••.»«. 

10 REM «•«•*••«•• 
It REM * • 

12 REM • ALBERT • 

13 REM 

14 REM 
13 PEn 

16 REM 

17 REM 
IB REM 
19 REM 

29 CLR PRINT CHR»<14?) 

22 REM ■• mm 

30 RESTORE 

30 POKE 33206-0 POKE 532B1.0 
1B0 REM ■••••• 

101 REM INIT 

102 REM •*•*** 
110 POKE 650.126 

120 V-53248'REM SPRITES 
130 S-34272 REM SONS 
140 NIV-1 

145 VIE-6 

146 REKDQ1 .02,03,54,03-06.07 

147 IF01O-1THEN146 

130 REM SPRITES 

131 REM •••••■■*• 

160 POKE V+21,7 

163 POKE 2040,13 POKE 2041.13 POKE 2042.14 
178 FOR 1-0 TO 62 READ R POKE 832*1. R NEXT I 
171 FOR 1-0 TO 62 ^REflU R-POKI 896*1. ft NEXT I 
173 POKE V*39,3 POKE V+48 .3 POKE V*41,7 



wwocuiT) 




edito 



/\" $0\imOT\ 




1B8 008UB 30000 
700 DIM Dtl030J 
218 FOR 1-0 TO 1 
220 FOR I-r "" 



8 STEP < D(134*I)-IKXT 
8 STEP 6D<374*I>-1NEXT 
230 FOR 1-0 TO 18 STEP 6 : DC614+I )"1 NEXT 
240 FDR 1-0 TO 18 STEP 6:DC834+I)«1 NEXT 
230 FOR I-B TO 24 STEP 6 D(231*I)-1 NEXT 
260 FOR 1-0 TO 24 STEP 6 D<49i-i:-: NEXT 
278 FDR 1-0 TO 24 STEP «-D<731*I 3-1 .NEXT 
1199 REM ••*••*•* 
1208 REM DECORS 
1201 REM I 

1219 PRINT 

1220 print 

1230 PRINT 
1240 PRINT 
1230 PRINT 

1260 PRINT 
127B PRINT 
1293 PRINT 
1290 PRINT" 
1360 PRINT" 
1310 PRINT 
1320 PRINT 
1330 PRINT 
1340 PRINT 
13-jB PRINT" 
1368 PRINT" 
1378 PRINT 
1418 PRINT 
1420 PRINT 
1438 PRINT 
1433 PRINT" 
1440 PRINT" 
1460 PRINT 
1530 PPINT 
1360 PRINT 
1564 PRINT "■) 
1363 POKEV. 36 



mm a ii an a m 
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Nl__f \l_l/ M_I/ A_l/" 

mDOOB" PRINT TAB(32<"!W>OINTS" 

mama- print tbb<33)"0vies" 

«P PRINT TflB'.32)"lTRBLERU" 
P0KEV+1.1B2 POKE V+2, 102 P0KEV*3, 



1371 PRINT -mW.aaBJXK 
1572 REM *••••*•***• 

1373 REM PRO PRINC 

1374 REM I 
1373 PRINT ' 
1376 POKE 53276.0 
1577 X-62 V-62 XM(2> 
1530 GET ft* 
1600 IF R*«"Q" 
1610 IF AI-"U" 
1620 IF R»-"N" 
1630 IF fl»«"M" 
1635 POKE V+4. 



PRINT TRB<33) NIV 



'PRINT TAB<33> VIE-1 
'96 VM(2)-182 VW3J-182 XTK3>-182 



THEN X-X-24 V-V-24 

THEN X-X*24V-V-24 

THEN X-X-24 V-V*24 

THEN X-X*24 V-V+24 

X POKE V*3. V 
1697 IP D<X/B*5«y-183>"0 THEN 35900 
164B GOTO 40999 REM TEST CASE 

1650 FOR M*2 TO 3 IF RNB<lK-NIV/20 THEN GOSUB 
30000 GOTO 1678 
1669 QOSUB 25900 
1678 NEXT M 

1699 POKEV, XM(2) P0KEV*l,VMf2> POKE V*2. 
XM(3> POKEV*3.VTK3> 

1690 IF PEEKC53278) RND <2T2) THEN 21000 
3909 OCTO 1599 
4900 REM •••••*••• 
4001 REH mJSIOUE 
4902 REM ••*■•••■* 
4918 RESTORE 

4029 POKES+24,13 

4030 POKES*3.9 PCKES*12.9 P0KES*19.9 
4940 P0KEB*6.96 POKES+13.96 P0KES*28.96 

4049 MNDDU,H1.I1.H2,B2.H3.B3 
4046 IFDU—1THEN40OB 

4050 P0KIS*l.Hl:POKES*B.H2 P0KES*13.H3 
4931 POKES. 11 POKES*?. B2P0KES+14-B3 
4069 POKM+4,33 POXES+11.33 P0KES*18,33 
4979 FORI-1TODU4130 NEXT I " OOTO4043 
4989 P0K£S*4,B P0KES-H1.9 POKES+18.9 
4999 P0KES*3.B P0KES*12.B P0KES*19,9 

4993 POKES+6,9 P0K£S*13.9 POKES+29. 9 RETURN 

4100 REM •*•••••»*•»•• 

4101 REM DATH MJSIOUE 

4102 REM •••••••••••••* 

4MB DRTA1. 33,29, 170, 17, 193, 13,208 
4120 DATA. 33, 19, 137, 17, 103. 13-288 
4130 DflTR.33,28, 178. 17. 193. 13,208 
4140 ORTRl.33,27,169, 17, 183, 13,208 
4130 DATA. 33,26, 20. 17. 103-13,208 
4168 DATH. 33-23, 39-17, 183,13, 206 
417B DATA1.33.28. 178. 17.193.18.89 
4109 WTR.33,19.137,17,103,9,196 
4190 DATA. 33, 18, 112. 17-103-9. 36 

4209 DHTAl.33,34,207, 17. 103,17, 103 

4210 OflTR.33,31,3. 17, 103, 13,129 
4220 DATR. 33-27-160, 17-193, 13, 29B 
4239 0flTA1.73,M.l?8.13.19.18.89 
424B DATA. 20. 23, 39-13. 18. 11-138 
4239 DATA1. 73, IB, 112, 12,78,9,36 
4269 DATA. 25. 17, 103,12,78.8. 180 



427B DflTR1.73.28,178,I3-lB.18.89 
4288 DRTfl.25,23,39, 13. 18. 11-138 
4298 DflTfll. 73, 18, 112. 12-76.9.36 
4300 DATA. 23. 17,183,12.78.6, 188 
431B DflTfll, 73. 20, 17B, 13,10.10.89 

4329 DATA. 23. 23, 39. 13. 10,11, 158 

4330 DflTH2.13.129.13.lB.18.89 
4340 DflTfll, 15. 129.0.0.0.0 

4330 DRTA2, 16. 109.0,0,8.35 
436B DflTfll, 16,112-16.112. 18. 112 
437fl DflTfl217,103,I6.109.13.19 

4389 DflTfll. 75. 0.9. 0,0, 0.180 
4381 DATA. 006, 8, 0,0, 0,0.0 

4390 DflTH.25,0.0,0.0.8.1S0 

4391 DATA, BBS, 0.0. 0.0, 0,0 

4409 DATA. 25. 0,0, 0.0. 8. 180 
4401 DATA. 006,0.0.0.0.8,0 

4410 DRTA.25 8.0.8.0.8.160 
4420 DflTA-1,0.0.9.9.0.8 
19999 REM «•*«• 

29000 REP! FIN 

20001 REM •»•»• 

2BO20 FPINT "<<aB BB i ai BroOCaBl»MWTNflT'5 ALL 

FOLKS ' ! ' " OOSUB4000 

26030 ppiht - oae aa waj»ftf>E jquep <i-o,2»n:>->" 
20032 POKE V.I POKE V*l,i POKE V*2, 1 POKE V*3. 
1 POKE V*4,t POKE V*5, 1 

20035 GET to IF flf»"" THEN 20O35 

20036 IF ft*="r' THEN 10 

20037 IF H»0"2" THEN 20035 
20040 PPINTCHP«'.147> END 
2099? PEM *«»•••••••• 

21906 REM COLLISION 

2)901 PEU ••*•••••••• 

21010 V1E-VIE-1 

21913 POKE 5*24.10 POKE S*3.B 

21016 POKE S*5.32 POKE S*6.255 POKE S*4.33 
21020 FOP 1=259 TO 9 STEP -2 POKES*! . I POKE S, 

21030 FOP 1-150 TO STEP -4 P0KES*1.I POKE S. 

I NEXT 

21040 POKES. POKESM.0 P0KES*24,8 

21043 IF VIE-0 THEN 29909 

21846 FOR 1-1 TO 300 NEXT 1 

21047 FOR I-1TO100 GETM Hi-" " NEXT I 

21030 FOR 0-2 TO 3 

21069 IF YIKQXV THEN XM»0J-235 

21070 NEXT 

21080 POKEV. X(1<2) P0KEV*1.YM<2) POKE V+2. 

XM<3>:P0KEV+3.VMC3) 

21090 POKE V*4.1 POKE V*5, 1 

21150 GOTO 1565 

2499? REM •*«•«••**•••*■••••••• 

25909 PEM PECHEPCHE flLEATOIRE 
25991 PEM •«•■•••••»■•*•••**■•• 

25010 XPCM)-XM'M) YP'M)«VM<M> 

25020 IF PMD<1K.5 THEN XM<M)-XM(M)-24 GOTO 25040 

25030 XM<rt>-XM':*n*24 

25040 IF RND<1K.5 THEN VM(MJ-YM(M)-24 GOTO 25060 

23050 VM',M>-VM(M)*24 

25060 IF D(XM(M),'8*5»VM'rl)-163>-0 THEN 

XH(M)-XP(M> Vn<M)-VP<M) 

25070 PETURN 

29999 PEM •••■«••••••*••••*•••>•• 

30090 REM PECHEPCHE PAR CflLCUL 
30001 REM ••»»»**■*»••••••*••••• 

30010 XPfm-XM'M) VP<M)-VM<M) 

30020 IF X<-XM'M) THEN XH(MJ-XM<M)-24 GOTO 30040 

30030 XM(M>-XM(M)*24 

30040 IF V<»Vfl(M) THEN VM(M)-Vn(M>-24 GOTO 30060 

39059 VM'M'=VM'M)+24 

30060 IF D'XM<M)/8*5ri , M(fl)-183>-0 THEN 

xn<M>-xp<M) : vn<M)-vp<M» 

30070 PETUPN 

35900 REM «•♦»••* 

35091 REM CHUTE 

35002 REM «••••«• 

53010 POKEV+4.1 P0KEV*5.1 P0KES*24.15 

35013 POKE S*3.9 P0KES*5,64 P0KES*6 . 

235 POKES*4.33 

35020 FOPI-200TO1STEP -2 P0KES*1.I POKES. 

1 P0KES*7.I POKES*B,I NEXT I 

•5030 POI'E1*1,0 POKES. POKES*?. POKES*B. 

POKE S+24,0 

35035 VIE>=V1E-1 IF VIE-0 THEN 2BOO0 

35040 FOP 1-1 TO 100 GET 

to to'" "NEXT IOOT0 1573 

40090 PEM ••»••# t 

40010 PEM TESTS 

40020 PEM •♦•»••* 

40640 M-INTO;/9*5»V.+53063 

40676 DI'sM-532?6+50 IF D(BD>«2 THEN 4190B 

^0790 D'DD>=2 

49719 FOP 1=0 TO 3 P0I'EM*I.2 NEXT I 

49720 FOP 1=0 TO 3 POKEM*I*40.2 NEXT I 
40730 FOP 1=0 TO 3 POKEM*I*S0,2 NEXT I 
40740 FOP 1=1 TO 2 POKEM*I*120 .2 NEXT I 
4O7-S0 Fnp ] = l TO 2 PC*EM*I*160 .2 NEXT I 
40760 FOP 1=1 TO 2 POKEM*I*200 -2 NEXT I 
40300 Ul=LU*I 

40310 PT=PT*HIV»10 

4PS20 PPIHT"*WW)OJBI^'■ PPINT TftB<32' PT 

4('.;::n IF rtj=5i THEN 42099 

11000 BQTO 1650 

J13?? PEM ••«•••••*••*••• 

42090 PEM NVEflli TABLEAU 

42091 PEM »•*••*•••••♦*•• 
42010 POKE S*24.15 
42020 U'=0 

42030 FOP UPT TO FT.IUV4109 STEP 10 

42045 POKE 3*1.109 POKE S.100 POKE S*7. 



100 POKE S*8,100 

42946 POKE 5*1,0 POKE S.0POKE S*7,0 POKE 3*8.0 

42059 PT-I PRINT "mOMIO" PRINT TRE''32) PT 
42055 PRINT "■ 

42060 NEXT I 

42070 NIV-NIV*! OOSUB4B00 

PPINT TRB'33' HIV 
42083 POKE S*24,0 

42896 FQRI-1 TO 100 OETFW to'" " NEXT I 
42890 GOTO 210 
49999 REM ••««•«• 

30000 REM DEBUT 

30001 PEH •■•*••• 

30002 PRINT'-nWB" 

30003 PRINT" — 
30094 PRINT" W , ni" 

50005 PRINT" II ■ " 

50006 PRINT" ■ ■" 
30007 PRINT" M ■" 
30B08 PRINT" a ■" 
39B89 PRINT" * • • ) ■" 
50010 PRINT" ■ ~ • 

VLEEM IK^l" 



9i: 



KKT" 



PRESSEZ UNE TOUCHE" 
"THEN50O32 
■MCSESIREZ VOUS LES 



38013 PRINT" ■ \ / I 

30014 PRINT" a I 

30013 PRINT" M '. I 

30016 PRINT" a B 

30017 PRINT" *»■ W 

seels print" -j m i r 

30019 PRINT" 11 II 

58029 PRINT" W,/ ■ ■ 

30038 OOSUB4O00 

59931 PRINT-SI 

30032 GET Al IFRf-- 

59033 INPUT-rjMBOB 

INSTRUCTIONS - , fl* 

50034 1FLEFTI{H»-1)-"N"THEN3016B 

39935 PRINT"M PRESSEZ UNE TOUCHE" 

50049 PRiNT-^aaaaaBMflLBERTa est un jeu 

OUI CONSISTE" 

30041 PRINT-ft REPEINDRE TOUTES LES BRIOUES 
D' UN flUR", 

30042 PRINT"EN SflUTRNT TOUT SIMPLEMENT DESSUS.B" 
50043 PRINT-BIEN SUR. ON NE VOUS LAISSERA 

PRS FRIRE" 

30844 PRINT-COflME BON VOUS SEMBLE. flUSSI NE VOUS 

39943 PRINT'ETONNEZ PflS DE VOIR DEUX JOL IS" 

50046 PRINT"SERPENTS VOUS FONCER DESSUS.«a«l" 

5094? PRINT-3 PRESSEZ UNE TOUCHE" 

39049 CETRI 1FRI-" "THEN3004B 

50049 PRINT-naBWIIL V fl PLUSIEURS NIVEBUX 

DE DIFFICULTE" 

30958 PRINT"LE NIVEAU 1 EST UNE SIMPLE PRISE DE 

38051 PRINT'TONNHISSHNCE. ON EST DENTIL. 

ON VOUS " 

30032 PRINT-LRISSE LE TEMPS DE VOUS HRBITUER 
AUX " 

39053 PRlNT-COtmflNDES . . . " PRINT"NIVEHU 2 
LE JEU SE COPSE. LES SERPENTS" 
59054 PRINT-QUI SE DEPLflCHIENT HLEATOIREnENT 
RU " 

30033 PRINT-NIVERU 1 COMMENCENT 
fl VOUS HTTBQUER. " 

30056 PRINT 'A CHAOUE NIVEAU SU1VANT 

LES BEBETES SE " 

50037 PRINT"MONTRERONT UN PEUT PLUS FEROCES. " 

30058 PRINT-AINSI SI LES 3 PREMIERS NIVEAUX 

SE FONT" 

50059 PRINT-LES DOIGTS DANS LE NEZ 

(ESSAVEZ POUR " 

30060 PPINT"VOIR »),A PflPTIR DU NIVEAU 4 

IL VOUS " 

30861 PR I NT "FAUDRA RUSER.ET fl PARTIR 

DU NIVEAU 7-8" 

38862 PPINT-IL VOUS FHUDRfl ENORMEMENT 

DE CHANCE..." 

30863 PRINT-flLORS PREPRREZ V0U5 ET ^TAPEZ 'JNE " 

30064 PRINT"TDUCHE IFOUR AVOIR Lfl LISTE DES " 

30963 PRINT'XOMMHNDES ... " 

30099 OETA* !FAI-""THEN58999 

""WUT GHUCHE — > 0" 



oan 



DROITE - 
IRS GAUCHE --> I 
DPOITE —3 M" 

THEN 50130 



39100 PRINT 

30110 PPINT 

38128 PRINT 

38130 PPINT 

30140 PRINT 

UNE TOUCHE..." 

39138 OET fl« IF A»=" i 

5016B PETUPH 

30995 PEM ••••*•*******• 

31000 REM DATA SPRITES 

51091 REM ••••••***•*•■* 

51002 PEM •*•**•*•-• 

51003 REM M0N3TRES 

51904 PEM ■«•••»«•** 

51905 DATA B-0.9. 3. 128.0.3,248.0. 31.232.0.31. 
140.9,0-12,0.0. 12.9 Or 12.0 

51006 DATA 0-69,0,31.243,0.127,224.0.112.12.0- 

96,12.0.96,12.0.120.29.0 

51907 DATA 63.24S 9. 15,240 0.0.0,0 0, A, 0,0, 0,0 

0,00 

51009 REM >■*••• 

31010 REM BERT 

31011 REM *•*•■• 

5182B DATA 7-224,0, 15.240,0. 31 - 24S. 0.4?. 149-0 

51030 DATA 53. 172, 0.33. 172. 0.49-149. 0,63, 252.0. 

63.232.0 

51040 DATA 31,249-0.15.249 0.15.249.0 12-48,0- 



12 A':- 

31830 DATA 60-60-9-61 



.69 I 



M ,■ ,■ .. . 



1,0 



Tiens, cette semaine je vais un 
peu vous parler d'informatique. il 
y a longtemps que je ne I'ai pas 
fait, ca va vous reposer de mes 
dt'hres hebdomadaires. J'ai un 
super moral de course, lintor- 
matique en general se porte 
bien el I'intormatique famlliale 
en particulier. Qu'est-ce qui me 
fait dire ca ? Oh, pas grand- 
chose, des impressions : jusqu'a 
present tous les commerciaux 
qui se sont occupes de ce mar- 
ch§ avaient I'impression que le 
grand bourn etait pour demain. II 
failait les entendre : "Noel 84 
sera une grande annee !", "4 % 
des families franchises sont 
equipees alors que 20 % des fa- 
milies anglaises le sont, tu le 
rends compte de ce fabuleux 
march6 !" ou encore "Je suis sur 
de vendre 20.000 machines a 
r education nationale !" et toutes 
sortes de grands projets, de 
nouvelles machines fabuleuses, 
de grandes declarations et de 
reves megalomanes. Or, au- 
jourd'hui, et c'est ce qui me rend 
optimiste, lout ce joli monde esl 
revenu a de plus (ustes preten- 
tions, Les baffes qu'ont pris les 
plus grands comme IBM ou 
Texas rendent les autres pru- 
dents. L'informatique est un 
marche normal et chacun sem- 
ble I'avoir brusquemenl compris. 
Les nouvaux projets sont raison- 
nables, les plans de d6velopem- 
ment normalement pessimistes 
et les gens serieux rentrent 
maintenant en lice apres avoir 
laisse les pionners et les rlgolos 
se tirer dans les pattes. En plus. 
la passion eleclronique qui nous 
ravage, fait malgre tout chaque 
jour de nouveaux adeptes Infor- 
maticiens mes freres, c'est tout 
bon pour nous : le raisonnable 
et le routinier pour les vendeurs 
mais la folie et la passion pour 
nous. 

Vive la Republique, vive la 
France, vive l'informatique et, 
comme dirait Mitterrand a Mou- 
rousi ; vive les cables ! (Nous en 
sommes la creme !) 



Gerard Ceccaldi 




LA JUSTICE 
EN MARCHE 



Nous vous avions pane voici 
peu du proces interne par US 




Gold contre GB Gold. Compte 

rendu de 'audition qui a eu 
lieu la semaine derntere : GB 
Gold s'est vu interdire de fabri- 
quer, vendre ou promouvoir 
des produits portanl sa mar- 
que, jusqu'a ce que le tribunal 
aie rendu son jugement. II est a. 
noter que US Gold avail deja 
gagne un proces contre UK 
Gold et s'est empresse de co- 
pyrighter UK Gold el Euro 
Gold, lis en avaient oubiie un, 
ah ben ca arrive... 



Un utilitaire de qualite pour un micro de qualite. 
comment gerer avec plaisir son compte bancaire. 

Frederic MOMMEJA 



Mode d'ernploi : 

Ce programme permet la gestion mensuelle dun compte bancaire. 
Soixante mouvements (recettes/depenses) peuvenl etreenregistres 
pour chaque mois et preserves sur cassette ou disquette (moyen- 
nant quelques modifications minimes). Les depenses peuvent etre 
venlilees sur 25 rubriques codees de A a Y et les recettes ou reve- 
nus affectes ou non a la rubrique Z. Un etat des mouvements par 
rubrique peut elre aHiche a I'ecran et automatiquemenl edite tors de 
la sortie des mouvements sur imprimante Un etat des depenses est 
aussi propose sous forme d histogramme a I'ecran. 

LE MODULE D'ENTREE (apres RUN) : enirer le numero du mois (1 
ou 2 chiffres) et lannee (1 ou 2 chlffres). chaque entree validee par 
RETURN. 
FONCTIONS : 

F1-Charge: permet de charger un mois de)a sauvegarde par 
CHECK-BOOK. 

F2-Saisie ; passe en mode saisie (voir module de saisie). 
F3-Sauve : sauvegarde sur cassette du mois en cours de saisie 
F4-Ventil : lance la procedure de ventilation des revenus et des de- 
penses et affiche les resultats a I'ecran sous forme numerique puis 
graphique 

F5-Quitte : sortie du programme. 

F6-lmprim ; edite la liste des cheques (ou mouvements du mois en 
cours). ainsi que les recettes depenses venlilees par rubriques. 
F7-Mois : passe automatiquemenl au mois suivant en mettant a 
hlanc le fichier mais en conservant le montant de I'avoir en memoire 
(voir saisie). 



CHECK BOOK 



\ MSX 




F8-Graphe : Idem "Ventil" sans affichage numerique 
LE MODULE DE SAISIE (8 champs de saisie} : accessible en ta- 
pant F2 dans "e module d'entree. apres avoir tape le mois et lannee 
choisis. 

Avoir : louche de fonction F3. signe + 6 chiffres + 2 decimales. 
Numero : 10 chiffres. 
Debit Credit : t , revenu ou recette 
-, depense par cheques 
C, depense par carte de credit 
A, annulation 

S. supprime le cheque et tasse le fichier. 
Date : date demission (3 fois deux chiffres) 
Montant : 5 chiffres + 2 decimales. 
Rubrique : une lettre de A a Z. ou blanc. 
Objet : texte (15 caracteres alphanumenques). 
Recu le : date du debit ou credit sur compte (3 fois 2 chiffres) 
REMARQUE : afin d'eliminer les eventuelles erreurs occasionnees 
par la frappe dun nombre avec decimales ou dune date, chaque 
partie est validee separement par RETURN. Ainsi les nombres deci- 
maux sont entres en deux fois (partie entiere puis partie decimale) 
et les dates en trois fois. 

LES FONCTIONS Fl-Bas F2-Haut : permettent de se deplacer rapi- 
dement dun champ a I autre sans avoir a valider chacun des 
champs intermediates Par exemple, si Ion desire passer de "Nu- 
mero" a "Recu le". on peut soit taper 6 fois sur Fl-Bas, soil taper 
une fois F2-Haut. Sur un champ quelconque. l'appui sur RETURN 
conserve tel quel le texte ou la valeur se trouvant dans ce champ. 
LES FONCTIONS F4-Recule F5-Avance : permettent de se deplacer 
dans le fichier. L'app.i sur F5 Avance. affiche a I'ecran le cheque 
suivant. L'appui sur F4 Recule, affiche a I'ecran le cheque prece- 
dent. Si Ion se trouve sur le cheque 1. l'appui sur F4 positionne sur 
te cheque 60. '» dernier du fichier. On obtient I'inverse avec la lou- 
che F5. 

LA FONCTION F6-Cherch. : permet de se positionner rapidemenl 
sur un cheque recherche Apres avoir tape F6, entrer une lettre de- 
signani le champ sur leque 1 doit porter la recherche, puis la valeur 
recherchee (ou le texte). en respectant les limites indiquees 
C-Rangdu cheque dans le fichier (1 a 60). 
N-Numero du cheque, chiffre de a 9999999999 



D-Date demission (uniquemenl), le 12 Avril 1985 secrira par exem- 
ple : 120485. 

M-Montant, avec ou sans decimates. 
R-Rubnque, lettre de A a Z ou btanc. 
O-Objet, jusqu'a 15 caracteres alphanumeriques. 
A noter que cette fonction permet de se positionner rapidement sur 
un cheque donne, sans recourir a des frappes successives de F4 
ou F5. De la meme maniere, pour se placer sur le cheque suivant le 
dernier entre. il suffit de taper F6, "M" (RETURN), (RETURN), a 
condition d'avoir entre le montant des cheques precedents. 
LA FONCTION F3-Avoir ; permet de modifier le montant de I'avoir. 
Taper F3 et reecnre le montant desire de I'avoir. 
F7-lnsere : permet d'inserer un cheque entre deux cheques de|a 
existants. ATTENTION, afin de permettre cette insertion, les valeurs 
qui etaient affectees au cheque N" 60 sont perdues et tous les che- 
ques suivant ('insertion sont decales vers la fin du fichier. Done a 
evitei si Ion a deja entre 60 mouvements 
F8-Num.+ 1 ; met automatiquemenl dans le champ "Numero- le nu- 
mero immediatement superieur au numero du cheque precedent 
(n'agit pas si tous les N" precedents sont des 0) Le curseur est 
alors place sur le champ "Debit/Credit". 
F9-Rubnck : cette louche est une fonction d'aide qui permet d'affi- 
cher les codes (A a Z) des 26 rubriques existantes et leur libelle. 
L'appui sur une louche quelconque, permet de retrouver I'ecran sai- 
sie la ou on lavait laisse. 
FlO-Sortie : retour a I'ecran d'entree. 
REMARQUES : a la ligne 90, Instruction CLEAR 8000 permet un 
espace memoire reserve aux chafnes important II est possible, no- 
lamment pour une adaptation a une machine 16K RAM, de ramener 
cette instruction a CLEAR 1500 La sauvegarde peut s'effectuer sur 
disquette en supprimant C$ de la chatne TC$ a la ligne 3290. Pour 
mettre en activite les instructions MOTOR ON et OFF (absence de 
telecommande du lecteur), supprimer les apostrophes qui les prece- 
dent aux lignes 3360 et 3370 Les caracteres gerant les affichages 
de chaines dans I instruction PRINT USING ( & et ■ 
sont different de ceux utilises par le BASIC MSX destine a des 
claviers QWERTY qui sont respectivemenl @ e 
comme delimiteur de chaine. II conviendra de faire des essais avec 
lordinateur utilise suivant sa configuration clavier. 



CHECK-BOOK * MSX 32/64KO 
lur CANON V20-BASIC NSXl.i 
par F.MOMMEJA - Mar* 83 



90 CLEAR 8000:C0L0R13, 1, 1 : ONERRORG 

0T03340 

100 PLAY*S1H2000T2930*AOBARRAFG»»AR 

DRDAEREFFDED R * ! KEYOFF 1 CLS 

110 DEFINT A-2:L0CATE10,9,0:PRINT' 
• CHECK-BOOK ft'ILOCATEl*. 11,0:PRIN 
T"p*r"!LOCATE13, 13, 0:PRINT-F. MOM ME 
JA-:00T04020 



:db-i:pl-rg:return439o 



7*0 RESTORE770:FORI-1TOHH:READMM*: 
NEXT: RETURN 

770 DATA -JANVIER 1 , "FEVRIER", -MARS 
■,*AVRIL", "HA I •.•JUIN-, 'JUILLET', 
■AOUT', -3EPTEM10E- , "OCTOBRE-, "MOVE 
HBRE-, 'DECEMBRE' 



790 



■ I* 



iao stopon:return 






810 RESTORE 640: 00 TO 930 

820 RESTORE 890 

830 FOR 1-1 TO io:read L*: 

:next:return 

840 DATA TllirW *«8l1l8' 



830 DATA 'HBab', ■NKauf 



230 LOCATEO, 22,0: FORT- 1TQ3*: PR INTC 
HR*(1)*CHR*<87) I :NEKT: RETURN 

290 '■"- l#l.pt)rll.tlOn ll»ll ■ ■!■!■ i ■!■■■ 

270 FOR T-l TO ( 10O0*B) : NEXT : RETUR 



310 LOCATEO, 12: PRINT* V*ul 1 )•! *ntr 
•r 1* maim at 1 * innn, . " 1 1 00T0 320 
rjOSUB270:RETURN 



*Nubo*1*, -Rubrlk*, -Son !•" 

860 0NKEYG0SUB3190, 4390, 3230, 3390, 

3400,2290,2970,3730, , iQOTO 880 

870 0NKEYG0GUB2*90,27O0, 1790,3130, 

3070 , 2000 ,2910, 920 , ABO, 2330 

990 FORt-lT010:CLII)-l:KEYtIION;NE 

XT! RETURN 

900 * ■■ nunra * 1 •■■•»••■••■«•-*» 



320 beep:s-: 



360 LOCATEO, 0,O:PRINTCHR*II)*CH»*( 
88) I :F0RT-1T034:PRINTCHR*(1I*CHR*( 
87) I :NEXT:PRINTCHR*(1)*CHR*(89I i 
370 LOCATEO, 1 : PRINTCHR* II ) *CH«M<8« 
)*8PACE*I34)*CHR«I1) 'CHMIBti | 
380 LOCATEO, 2! PRINTCMB8U ) *CHR8 190 
l| :FORT*1T034:PRINTCHR*<1>*CHR*<87 

> t :next:printchr«ii)*chr«(91) i;ret 

URN 

400 •"» v«ntll* rtvinut ■■■ —■ ■■■ 

420 VVH-0:FORF-lTONi:lFRU»(FIOCMR 

• (e) ordc8 if i < >chr« 1 43 > then440 
430 w*-vv**m0*4f> eva 1 ie-441-vv8:r 
em ifvvh >hx i thennx ••w» 
440 nextf:return 

4*0 " ■»• bouc I • vtnt, •■■—■•■■•■■ 

480 vv*-o:forf-itoni 

490 ifru8if)<>chr*<e)0ridc«if)och 

R«(43)AND0C8(FI< )CHR«t*7) >THENS10 

300 W»-W«'"nnif i 

310 NEXTF 

320 VA' IC-A41-VV8: IFVV«>NX • THENNX • 

>W« 

330 RETURN 

330 -... ch.in.9. data -••«- — « 

370 MID8IDD8, 1 1 -■ 000000* : ONROOOTO. 

,380, , , ,6IO 

380 IFDE' <CHI-0THEN*40 

990 IKL.ENIHID9(STR«(DE ' ICHI! ,21 )<> 

9THENHID8IDD*. 1 I »LEFT« IZOV, *-LEN IH 

ID8I6TR8I0E' ICHI 1,211 ) *NID*<STR8 I D 

E> (CHI ) ,2) :0OT0*40 

*O0 MID8IDD8, D-HID8ISTR8IDE' ICH) I 

,21 :8OT0*4O 

*10 IFDR! ICH1-0THEN*40 

620 IFLENIMID*(STR8IDR> (CHI I .21 I < •> 

3THENMID8IDD*, 1 )-LEFT*IZ0«,*-LENin 

1D«(STR*(DR' ICHI ) ,21 I 1 *MID«1STR*(D 

R' (CHI 1,2) :D0T0*40 

*30 WID»IDW, I I-"HD1ISTR«(DR' ICMI i 



0RR0O1THENBEE 
FNU« 1 I 1 -OT 



920 00SUB123O: IFCH' 

P:0OTQ9*O 

930 FORI-CH-1T01STEP-1 

HEN930 

940 NU4(CHI*NU*(II«l:O0TCI9*0 

930 NEXT 

9*0 oosubi29o:pl-2:return43*o 



looo z-uSRl iz):locatex,y, i:x-x-i:R 
»•»■■ 

1010 IN8-INKEY81 IFIN8-**THENlOI0 

1020 IFASC(1N8)>3THEN1010 

1030 IFASC'IN«fl3THENRETURN 

1040 1FAEC(IN8I< >8THEN10*0 

1030 IFRP8< >--thenrp*»left»irp«,le 

N(RP8I -1) ; GOTO) 130ELSE 1170 

10*0 !FLEN(RP*)-LTTHEN11B0 

1070 IFA8C(IN«)aOTHEN1170 

1080 ONTE80T01090, 1 lOO, 1 1 10, 1 120, 1 



<4SORASC ( IN8I >37THE 
141TH 



130 

1090 IFAEC 

NI170ELSE114O 'cMUrn 

1100 IFABC(IN«)<320RASC< IN*] 

EN1 170EL8EI 140 ' taut* 

1110 IF (ABC I IN8I <480RASC I I N* i )371 A 

N0ASCIIN8K >43THEN1170ELSE1140 '«* 

1120 IFASCIIN8K >48ANDASC ( IN8I < >43 
ANDA6C I IN8I < >43ANDASC(INSIO*7ANDA 
SCIINli' >«3ANDA8CIIN*I< >83THEN1170 
ELSE 1140 'al9naa*OtC*A*6 
1130 IF(ASCIIN»] <480RASC<IN«I >37IA 
NDASC(IN«)< >4*THEN1170ELSE1140 'Ch 

1140 x-x*i:rp*-rp»>in*:locatex,y, i 
:printin*i :ootoioio 

1130 LOCATEX.Y, i :printb»i ilocatek. 

y,cx»x-i:ootoioio 

11*0 GOTO 1010 

1170 Xl-X: Yl-Y:L«--C*ractar» non a 



I 190 



iao xi-x; 



' i-\ 



190 



*eo oosubi23o:keyoff:cls 

*90 RESTORE3940:G0SUB3*0:L0CATE4, 
, O : PR I NT ■ CHECK - BOOK Rubr 1 1 

700 F0RE-*3T077:READL«: Y-E-61IL0CA 
TEl, Y,0!PRINTCHR»(6I |*--|L»1 INEXT 
710 F0RE-7BT090:READL»:Y-E-74:l0CA 
TE20, Y,0:PRINTCHR«IE1 I * -"|L8| : next 
720 G0SUB230! LOCATES, 23,0; PRINT -Ap 



1190 :■■- U'-LENiHi W2:Y-24;a06UB19 
: PLAY * T233S 1M30O006BBR • : 8- 1 : OOSUB 
270:006UB230 

1200 x-xi: y»yi:locate x*i,y,i:goto 

1010 
1210 GOTO 1010 
1230 '«■ rlti HF ■•■■■■■ ■■■■■■■■■■ 

1230 for i-i to io:key(Iioff:next: 

return 

1270 '•• elaa EF ■■■■■■ — ■■■ i — -■- 



1290 for i-i to io:keyiiion:nekt:i 

ETURN 

1310 "-- dlvpttcli ••■■■•■^■••■•••i 



1330 0NR060T01380, 1390, 1400, 1410, 

420, 1430, 1400 

1330 " ■• atflcha^aa «■■«■•■■■••»•! 



1370 x>ia:y-7:locatex,y,o:p«intu8i 

NOUO«l AV«: RETURN 

1380 LOCATE13,12,0:PRINTUSINOU18IN 

U«(CHI IRETURN 

1390 X-13:Y-13:L0CATEX,Y:PRINTDC8( 

CHI I : RETURN 

1400 OOSUB370:LOCATE13, ll*R8,OtPRI 

NTUSINGU2«IVAL(RIOHT8(DIW,2l ) I VAL ( 

MID«I0D*,3,2) ) IVAL(LEFT*(DD«,2I ):R 

ETURN 

1410 L0CATE13,19,O:PRINTUSINGU3«IM 

08ICH) : RETURN 

1420 X-lS:r-l*:LOCATEX,Y:f'RINTRU8( 



1430 x-13:y-17:locatex,y:printob«i 
ch) i : return 

1430 *•• calcul ------- -——-— 

1470 0O5US123O 

1480 1FOC8'CH)-CHR«(43ITHEN1310 

1490 IFDC«(CHI-CHR«I43)0RDC>[CH)-C 

HR8(*7>THEN1340 

1300 G0T01370 

1310 AVa-AV*-FlX(M08(CH> I 

1320 AVrj-AVR*VAL(RP8) 

1330 GOTO 13*0 

1340 av*j-av«*f1x(n0r(chi 1 

1330 avh-avd-valirpsi 

13*0 xi-x:yi-y:8O6UB1370:x-xi:y-«yi 

1370 oosub 1290: return 

13BO G0SUS1230 

1390 IFDC*[CH)-CHR8(43)THEN1620 

160O IFDC«(CHI>CHR«I43>0RDC«(CHI>C 

HR«(*7ITHEN1630 

1610 0OT0168O 

1*20 AVtt-AVM-lMOM (CMI -FIX (MOD ICHI I 

1630 Ava-Ava* i val iHPai / iooi 

1640 OOTO 1*70 

l*SO AVR-AVRt IMOM (CHI -FIX (MOW (CH) I 

1**0 AV«-AV«-(VAL<RP*W100] 

1*70 xl-x: yi-i ;G0SUB1370:x->. 1 : i -i 1 

1*80 0OBUB129O: RETURN 

1700 '» ca le. r*c*tta*/d*panaaa •• 

1720 uua-o:uua-o:FORF-iTONH 

1 730 IFOC* ( F 1 -CHR* ( 43 1 THENW*- WW » 

HOB(F) 

1740 IF0C8(FI-CHR*(43I0RDC«(FI-CHR 

• (*7)THENWW(t-WWH*M0«IF) 

1730 next:return 



1770 



1790 xi-x:yi-y 

1800 x-i*!v-7:lt-7:Te-3:oosubiooo: 

IFRP8--'THENOOSUB1370:OOT01830 
IBIO IFLEN(RP8) >*ANDLEFT* (RP8, 1) ( > 
CHR8 (4BITHENBEEP! OOSUB 1 370 1O0TO1 BO 
O 

1820 avm-valirp8) i808ub1370 

1830 x-24:lt-2:te-i:Oobubiooo: ifrp 

••■■THENOOSUB137O:0OTOte«0 

1840 IFAV(HOTHCNAVR-AVR-VAL(RP»l /I 

oo:doToiB*0 

1B30 AV8-*V«*VAL(RP*)/10O 

iB*o x*xi:y-yi:rcturn434o 

18BO " ■» taat chtrchi ••■■■■••■»■■ 

1900 DR-0:ONDS80T01910, 1920, 1930. 1 

940,1990, 19*0 

1910 IFNUBdl-UmiTHENDR-llRETURNEL 

•CRCTURN 

1920 IFDC! (IliHMRTHENDR-lIRETURNEL 

BERK TURN 

1930 IFMOaUJ-WMaTHENDR-lJRETURNEL 

SERE TURN 

1940 DR-lN8TR(l,OB*II> ,wmi : IFDRt > 

othendr- l : returnel6ereturn 
1990 ifrlnmii-leftbiwm*, dthendr-1 
: return: elscre turn 
19*0 dr-i: i-um*:return 



CODE 



<=&&* 



2010 x«io:locatex,y:rrintepc(20i i : 
locate x , y : ondsooto202o, 2o20 , 2020, 2 

030,2030,2020 

2020 PRINTC8|WM«| :O0TO2040 

2030 PRINTC9I laiUMai 

204O LT-i:TE-2:OOSUB1000: IFRP8---T 

HEN2070 

2030 IFRP*--N'THENDB-1ELEEIFRP«-'D 

■THEND8-2ELSEIFRP«-*N'THENDS-3ELSE 

I FRP8- " O ' THENDS-4ELSE IFRP8- ■ R " THE N 

DS*3EL8E IFRP«- • C * THEN0S-*EL6EBEEP : 

0OT0201O 

2060 hiduci, 1 i-RF-a 

2070 0NDSG0T02080, 2080,2080,2140, 2 

140,2080 

2080 x-i2:lt-io:te-s:gosubiooo: IFR 

P*a"THENZlAQ 

?o»c ONDBOOT02100,2110,2120, , ,2130 

210O UMR-VAL(RP8) :S0T021*0 

2110 1FLEN IRPa I -6THENUMB-VAL (RIGHT 

•(RP«,2) )410000*VAL IMIDI IRPa, J, 2! I 

*100*valileft«(rp«,2) ) : goto2160els 

ebeep:ooto2oio 

2120 ifval(rp8k-l1«thenwm«-val<rp 

•) :goto2i*oelsebeef , :goto20io 

2130 ifvalirp8) )oandval irp8k -nbth 

ench-valirp8) :umr-ch:g0t02290else8 

EEP:O0TO2O10 

2140 X>12:LT-13:TE-2:G08UBlO00: IFR 

P8---THEN2160 

2130 UM8-RP8 

21*0 IFCH-NBTHEN2200 

2170 F0RI-CH*lT0NB:0OEUB1900 

2180 IFDR-1THEN2240 

2190 NEXT: IFCH-1THEN2230 

2200 F0RI-lT0CH-l;0O6UB190O 

2210 IFDR-1THEN2240 

2220 NEXT 

2230 BEEP: LOCATE 1 2, 22,0: PRINT "Paa 

imuvt. . . "I : S-3:G0SUB270:0O5UB230: 

80T02290 

2240 CH-I 

2230 x>o:locatex, y:printspc(3*i i :r 

0-l:RETURN499O 

2270 ' •■ laprlna •••■••■•■■•••■•■■ 

2290 DR-3:O0TO3270 

230O PRINT'EOITE • I R10HT8(TC*. *l | .■ 

LOCATE4, 17,0:RRINT- (Fl pula CTRL-B 

TOP -> Arr*t)'l : KEYOFF 

2310 ONKEY008UB2480:KEYI1ION:POKEI. 

HF417,l:REN at laprlaanta MSX 

2320 lprintilrrimtu481lrrint* r 
eleve du mois de • i mm| b8i aai lpr in 

tu*«:lprint:lprint- avoir 

. . . . : -iavb:lprint 

2330 LPRINT- CHCBUC No DAT 

E MONTANT RUBRIBUE □ 

BJET RECU LE-:LPRIHT 

2340 F0RI-1TONB 

2390 IFMO8(II-0THEN2390 

23*0 F-F*i;IFF>90THENLPRINTCHR8(12 

I :F-0 

2370 DE9.-RIGHTa.tSTR9.IM ' ( 1 M ,4! : DP 

••RI0HT8(8TR«(DR! (II I ,*l :RE8T0RI39 

40:FORJ-1TOABC(RU8III l-*4!READTR«! 

2380 LPRINTUBINOU78I I.NUBII) ,VAL4R 
iGHTBiUEa, i) ) , VAL (MID* IDS*, 3,21 l,V 
AL (LEFT* (DC*, 2) I , DC*( I > .MOB ( I I ,RU* 
(II ,TR*,OB*III ,VALIRIOMT*IDR*,2l I , 
VALINID*(DR*,3,2I ) , VAL (LSFT*IDR*, 2 

2390 NEXTI 

2400 lprintchr*i12) : lprint: lprintu 
**:lprint' ventilation par rubri 
bueb deb depensefi/revenus du moib 
de " i mn*| b* i aa: lprintu**! fori -1t03 
:lprint:next 

2410 LPRINT* 



I NOUS* I WW* 

24*0 LPRINT i LPRINT ! LPRINTU**: LPRIN 

T:LPRINT'80LDE DU N0I8 DC *IMM*I 



2470 LPRINTUSINGUO*l 
NT! LPRINTU** 
2480 00SUB8*0:KEYON 
2490 GOT03910 

2310 '-■ "nil 



2970 GOSUB1230 

2980 RP*-LEFT*(I1*,SI :SOBU81470: 

a-RlGHTaiiiB.2) :GOSUB19B0 

1338 HIfillB£i;t-HI;ll=EHBllfi3; 

2*00 MI DB IOBB ICHI , 1 I -HIDBI 12B, 1 

2610 G0SUB1290!RETURN499O 

2630 •»- b» ■■■■■■■■ — i ll mm 

Z«SO G0SUB12S0:GDSUB1330 
26*0 G0SUB1290:RETURNS290 
2680 '- haut ------.-—-—•..— 

2700 OOSUB 1ZS0:006UB1330 
2710 RG-RO-l:lF RQ-0 THEN RO-7 
2720 008UB1290: RETURN 4*40 



27*0 8UAPNUR ( I 1 , NUM I I • 1 I : SWAPDC* ( I 
) , DC* (1*1)! BUAPDE ' ( 1 1 , DE ! (1*111 SUA 
PMON II), HO" 11*1 II SWAPRU* (II, RU* ( I * 

i ) : swapob* (ii, ob* ( I • i ) : bwapdr I ( I) , 



2780 



* bli 



280O NU«ICH)-0:HID*(DC*ICH> , 1 I -SPA 

CE*il>:DE! (chi-o:no*ich)-o:nid*iru 

•(CHI ,II-8PACE*(li:MID*(0B*(CH) , 
-SPACE* (131 IMI (CHI -0 : RETURN 
2820 •» *upprl*9 —■•■■•■■■■■-. 



2890 RP*-LEFT*(I1*,9> I 808UB I 4 70 S RP 

*-RI0HT*ltl*,2> : OOSUB 19*0 

28*0 0OBUB2800:FORt-CHTONB-liOO*U> 

27*0! NEXT 

2870 LOCATEO, 21 , O: PHINTSPC ( 36) I : GO 

BUB 1 290 : RE TURN4360 

2890 ■- Inain ———-————. 



2910 G0BUB1230: 



i:print- 



«■■**>-« ■•«»#«« iNBERE ■aaaaaaaattaa 
M"l 

2*20 FORI-NB-IT0CHBTEP-H0OBUB278O 

:NCXT:OOSUB2BOO 

2930 LOCATEO, 21, 0JPRINTBPCI3*) I! 

SUB1290:RCTURN49*0 

2990 '■ nsuv.aoli ™»™™™i 



2990 F0RCH-lTONB!8OSUa2BOOlNCXT 

3000 IFNM-12THCNMN-l:AA-AA*ll IFAA- 

lOOTHENAA-Ol 80T03020ELSE3020 

3010 MM-KH.l 

3020 0O8UB7A0 

3030 LOCATE*, 20, 0IPRINT8PC (24) |IRE 

TURN4 1 *0 

3O30 '■ *v*nc» — aa— M ■ ■■■■■—■ 

3070 OOSUB 1290 

3O80 CH-CH'II IFCH>NBTHENCH«1 

3090 8EBP:RCTURN4990 



;-o: y-2o:locatex 



:PRINT-Ch»r 



rubribue 
:lpriht 

2420 RESTORE3940:FORE-*9T090:RCADL 
•:IFE-90THENOOSUB420ELBCG0SUB4B0 
2430 LPRINTUSIN0U8*lCHR*(EI ,L*,VA! 

16-*4i :NEXT 

2440 FORI -1TOS: LPR INT: NEXT: OOSUB 17 

20 

2430 lprint 'recettes : 'i 

:lprintusinou9*ivvbi :lprintspC(10> 
i -depenses ;>| ilprintus 



A suivre : 

En raison de la longueur 
mhabituelte du listing, 
nous passerons ce pro- 
gramme en deux lots 



EGYPTIA 



Pour les amateurs d'aventures macabres et tenebreu- 
ses, dangeureux est le chemin qui mene au secret de 
la pyramide THEPABO II. 

Philippe ZILL 



TI99 BASIC SIMPLE 




Mode d'emploi : 

Ce jeu comporie irois tableaux : 

Premier tableau : des serpents et des bedouins hostiles tentent de 
vous barrer I'acces de la pyramide Votre arme fait tuir les serpents 
mais vous pouvez aussi bien sauter par-dessus. Lorsque vous en- 
tendez une detonation, n'hesitez pas a sauter car ce son! les be- 
douins qui vous tirent dessus 
Vous pouvez : 
avancer "D" 
reculer.. "S" 
sauter.. "E" 
tirer. " (barre despace) 




Oeuxieme tableau La pone de la pyramide souvre et se terme 
sans arret, vous devez entrer au bon moment en appuyant sur "P". 
Si vous echouez. la porle se lerme a lout jamais, dans le cas 
contraire vous vous retrouvez dans un couloir sombre Vous devez 
avancer par appui sur "A", en evitant les pieux qui s'abattent aleatoi- 
rement et sans espoir de revenir sur vos pas 

Troisieme tableau un monstre se materialise, appuyez sur une lou- 
che et sautez au moment ou le triangle blanc s allume. Vous avez 
1,5 seconde pour appuyer sur "E" Coniinuez a avancer jusquau 
trou et sautez dedans ou vous attend tultime epreuve. encore une 
serie de pieux a eviter Si viclorieux, a vous le indent sacre et ses 
pouvoirs infinis 



100 CALL CLEAR 

105 CALL SCREEN (2) 

MO FOR 1 = 1 TO 16 

115 CALL COLORd. 16. 1) 

120 NEXT I 

125 CALL CHAR CI 12. '•FBFBFBFBFBOOFBFB" ) 

130 CALL C0L0RC11.2.2) 

135 PRINT " 2ILL PHILIPPE PRESENTED 



140 PRINT " ppp ppp p p ppp ppp p ppp":" 
P p pppppppp")"ppp p 
ppp p p ppp" 

145 PRINT "p P p p p P ppp"t" 

PPP PPP P p p p p p"::tii::i 

146 PRINT " « COPYRIGHT ZILL PHILIPPE." 

147 CALL COLOR (11, 11, 2> 

149 VIES=5 

150 FOR T-l TO 30 STEP .5 

135 CALL SOUNDI-100. 110.T. 120.T) 
160 NEXT T 
162 CALL CLEAR 

164 RESTORE ISO 

165 FOR 1-1 TO 24 
170 READ CAR. CAR* 

172 CALL CHAR (CAR. CAR*) 

175 NEXT 1 

ISO DATA 96,010204081F2040B0.97.FF.9a,FF 

OOOOOOFF, 99, 00307CFEFFFF7E3E. 100.8040201 

OFBO40201, 1OI.FF0000O0FF0704O5 

185 DATA 102,FF0Q0O00FFFF0OFF. 103. FFOOOO 

00FFE020A0. 120. 181812FE901C7446. 1 12, FD05 

0S05FD0505F5 

190 DATA 113. BFBOBOBOBFBOBOBO, 114,010204 

0BlF2040a0,115,01020408F020408O,12S.FFFF 

FFFFFFFFFFFF 

195 DATA 104. 009104401 18F7FFF, 105,4142187 

3FFFFFFFFF, 106, 2B8ZESFCFFFFFFFF , 107.3481 

0B20B1F4FEFF 

200 DATA 108,4yl3872FC71F3F9F,10Y,AADOt5 

F0F4F9FCF9, 1 10. 3F3FBF3FFFF7FFFFF, 111. FAF 

OFCFEFFFEFFFF 

205 DATA 136.FFFFFFFFFFFFFFFF, 152.FFFFFF 
FFFFFFFFFF 

206 CALL CHAR (137.-*) 

207 CALL CHAR (11 7,"") 
20B GOTO 232 

209 RESTORE 230 

210 FOR 1-1 TO 9 
215 READ A.B.C 

220 CALL CDLOR(A.B.C) 
223 NEXT I 

230 DATA 9.2.12.12,13,12,13,2,12,11,2,12 
. 10, 10, B, 14, 10, B, 13, 11, 11,2,3, 12, 1, 12. B 

231 RETURN 

232 CALL CHARI41. " 18194BFE08382462" ) 

233 CALL CHAR(42. "FCE6023E60C0C37E" ) 
233 TB-1 

236 FDR 1-1 TO 16 

237 CALL COLORd, 1,1) 
23B NEXT I 

250 CALL HCHARC1, 1,137. 1921 
235 CALL HCHARI7, 1, 1 17,376) 

238 RESTORE 2B0 
260 FOR I-I TO 36 
263 READ D.E.F 

270 CALL HCHARID.E.F) 

275 NEXT I 

2BO DATA 4,20.104,4.21.103.4,22.106,4,23 

, 107.3. 19,108,6. 19,110,3,24.109,6,24,111 

,9*20, 136 

2B3 DATA 3,21 , 136,5,22, 136,3, C3. 136,6,20 

, 136,6,21, 136,6,22, 136,6,23, 136 

290 DATA 8,4,96,6,3,100.9.3,96,10,2,96,9 

,6, 100, 10,7. 100.9, 4,9B,9,3,9B, 10.3,9B, 10 

,4,98,10,5,98 

295 DATA 10.6.9B, 8, 1 1 ,96,8, 12, lOO, 9, 10.9 

6,9, 13. 100,9, 1 1,90,9, 12,98, B. 16,96,8, 17, 

too 

300 CALL HCHARd 1,2.97.6) 

303 CALL HCHARdO, 10,97,4) 

310 CALL HCHAR(9, 16,97.2) 

315 CALL HCHARC7, 1,97.32) 

320 FOR 1-1 TO B 

325 CALL HCHARC7+I,29-I.96> 

330 NEXT t • 

335 CALL HCHARIB.29. 100) 

340 CALL HCHARC9.30.100) 

343 CALL HCHARdO,31. lOO) 

350 CALL HCHAftdl.32.100) 

335 FDR 1-1 TO 3 

360 CALL HCHARC8+I.29-I .98, I»2) 

365 NEXT I 

370 CALL HCHARI 12, 25,9B.B> 

373 CALL HCHARd?, 24, 98. 91 

380 RESTORE 403 

383 FOR 1=1 TO 1 1 

390 READ U.V.M 

393 CALL HCHAR(U.V.W) . 

400 NEXT I 

405 DATA 14,28,101.14,29,102.14,30,103.1 

3,2B, 1 12, 15,30, 113. 14,24,98. 14,25,98. 14. 

26,98, 14,27,98 

410 DATA 14. 23. 9B, 14,31,98 

415 CALL HCHAR( 13.22,98.6) 

420 CALL HCHARI 15,31 ,9B, 2) 

423 CALL HCHAR(14,31,98.2) 

430 CALL HCHARI 16,21,97, 12) 



431 C-X 

432 D-13 

434 CALL S0UND(300O.B80,0) 

433 FOR D-l TO B 

440 CALL HCHAR (16+0,29-D, 114) 
445 CALL HCHAR(16+D,30-D. 115) 
450 NEXT D 

435 CALL HCHAR<13,29, 128) 
460 GOSUB 209 

463 CALL HCHAR(17, 1,97, 17) 
46B X-I6 

469 Y-3 

470 CALL HCHAR<16,3.120) 

473 CALL SOUNDdOO, 1010,0,300,3,200,4,-2 
■ 1) 

478 D-l 4 

479 C-X 

480 CALL KEY(O.K.S) 
483 IF S-0 THEN 695 
490 IF K-69 THEN 600 
493 IF K-6B THEN 313 
300 IF K-32 THEN. 533 
305 IF K-B3 THBN 365 
510 GOTO 3»0 

515 CALL HCHAR(X.V.I17) 

520 Y*Y*1 . 

321 IF Y>17 THEN 660 

523 CALL HCHARIX. Y, 120) 

330 GOTO 700 

535 CALL HCHAR(X,Y+1.43.3) 

340 FOR 1-1 TD 10 

545 CALL SOUND(-lO0,-2, I#2) 

530 NEXT I 

355 CALL HCHAR(X.Y+1, 117,3) 

360 GOTO 693 

363 CALL HCHARIX. Y, 117) 

370 Y-Y-l 

572 IF V<2 THEN 520 

375 CALL HCHARCX.Y.120) 

380 GOTO 695 

600 CALL HCHARIX, Y. 117) 

603 X-X-l 

610 Y-V*2 

615 CALL HCHAR (X.Y, 120) 

630 CALL HCHARCX.Y. 1 17) 

633 X-=X + 1 

640 CALL HCHARiX. Y. 120) 

645 CALL SOUND (50, 440.0) 

652 CALL SOUND (30. 900,0) 
633 CALL BOUND (30, 110.0) 

653 GOTO 695 

660 FOR 1-1 TO 20 
665 CALL HCHAR(X.Y,117) 
670 CALL HCHARIX, Y. 120) 
675 NEXT I 

695 CALL HCHAR(C.D.117) 

696 IF Y>16 THEN 15000 

698 CALL SOUND (10, 1 10. O) 

699 CALL SOUND (SO. BBO.O) 

700 A-INT(RND«2)+1 

701 IF A=l THEN 702 ELSE 730 

702 FOR DD-1 TO IS 

703 CALL HCHAR (CD, 42) 

704 CALL HCHARIC, 16, 1 17) 

705 CALL GCHARCC.D-l.WW) 

710 IF MM- 120 THEN 20000 

711 GOSUB 1 300<i 

712 CALL HCHARIC, D, 117) 

713 D-D-l 

714 IF D-2 THEN 713 ELSE 720. 
713 CALL HCHARIC, D. 117) 

717 D-13 

718 CALL HC)MR<C,2,I17) 

720 CALL HCHARIC, D, 42) 

721 IF Y>16 THEN 13000 

722 NEXT DD 

723 CALL HCHARIC. D, 1 17) 

724 D-l 4 

725 SOTO 4SO 

730 CALL HCHARIC. D. 1 17) 
732 IF Y>16 THEN 15000. 
735 CALL HCHARCC.16.41) 
740 FOR 1-1 TO 10 
743 CALL S0UNDC20,-5,2*X) 
750 CALL KEYfO.QQ.RR) 
755 IF RR-0 THEN 790 
760 IF DCK>69 THEN 790 
764 CALL HCHARIX, Y. 117) 
763 X-X-l 
770 Y-Y+2 

775 CALL HCHARIX, Y, 120) 

776 CALL SOUNDC50. 880.0) 

779 CALL HCMAR(X, Y, 117) 

780 CALL HCHAR(C,16,117) 
7B2 X-X*l 

783 CALL HCHARIX. Y, 120) 

7B5 GOTO 480 

79D NEXT I 

793 GOTO 20OO0 

1300O CALL KEYCO,K,6) 

13010 IF S=0 THEN 13100 

13011 IF K-32 THEN 13039 ELSE 13012 

13012 IF <K:=69)t IK-6B)*(K-83)THEN 13013 
ELSE 13100 

13013 IF K-69 THEN 13014 ELSE 13022 

13014 CALL HCHARIX. Y. 117) 
13013 X-X-l 



13016 Y-Y+2 

13017 CALL HCHARIX, Y, 120) 
1301B CALL SOUND (50,440.0) 

13019 CALL HCHARI X.Y. 117) 

13020 X-X*l 

13021 CALL HCHARIX, Y, 120) 

13022 IF K-6B THEN 13023 ELSE 13028 

13023 CALL HCHARIX. V, 1 17) 

13024 Y-Y+l 

13025 CALL HCHAR I X, Y, 120) 

13026 CALL SOUND (50, 770. 0) 

13027 GOTO 13100 

13028 IF K-83 THEN 13029 ELSE 13100 

13029 CALL HCHARIX, Y, 1 17) 

13030 Y-Y-l 

13031 IF Y>1 THEN 13033 

13032 Y-2 

13033 CALL HCHAR ( X , Y, 1 20) 

13034 CALL SOUND ( 10, 1 10. O) 

13035 GOTO 13100 

13039 CALL HCHARIX, Y+ 1,43. 3) 

13040 FOR 1-1 TO 30 STEP 3 
13030 CALL SOUND do. -6. J > 
13060 NEXT I 

13070 CALL HCHARIX. Y+l, 117.3) 
13080 CALL HCHARCX. Y. 117) 
13083 Y-Y-l 

13086 IF Y>1 THEN 13090 
13088 Y-2 

13090 CALL HCHARIX.Y.120) 

13091 CALL HCHAR IC. D. 1 17) 
13095 D-l 4 

13100 RETURN 

15000 CALL HCHARCX, 1, 117.161 

13003 CALL HCHAR (X.Y, 117) 

15010 Y=17 

ISOIS CALL HCHARIX. V, 120) 

13020 FOR 1-1 TO 10 

13025 CALL S0UNDC-50. 1*1 10. <u 

13O30 NEXT I 

15035 CALL HCHARCX.Y, I 17) 



15040 



■29 



15045 CALL HCHARCX, Y, 120) 

15050 FOR XXX=1 TO 1000 

15055 CALL KEY(0,AA,8B) 

1506O IF BB-0 THEN 13080 

15065 IF AA-80 THEM 13070 ELSE 13080 

15070 IF ZI-9 THEN 16300 

13075 FOR 1-1 TO 30 

13076 CALL SOUND (-200, 400O- ( 1*1 10) ,0) 

13077 NEXT I 

13078 GOTO 1600C 

13080 IF 21-9 THEN 13100 

13083 CALL HCHAR (13, 29. 1 28) 

15090 11=9 

13095 GOTO 13250 

13100 CALL HCHARd5.29,117) 

15103 ZI-2 

15250 NEXT XXX 

16000 CALL CLEAR 

16005 CALL SCREEN (6) 

16008 FOR I-I TO 16 

16010 CALL COLOR! I , 16.61 

16013 NEXT I 

16020 PRINT "VOUS AVEZ ECHOUE...LA PORTE 

"■■"DE LA PYRAMIDE S'EST FERMEE . " : : "», TOU 

T JAMAIS.. . ": ■ 

16025 PRINT "L'EXPEDITION EST TERMINEE . 

".-i-SOYEZ BON JOUEUR ET TENTEZ "■■"A NOU 

VEAU VOTRE CHANCE •" t J.t 

16030 INPUT "VOULEZ VOUS REJOUER T 0/.N " 

|W* 

16035 IF M*-"0" THEN 100. 

16040 CALL CLEAR 

16045 PRINT "AU REVOIR. . . "•« I I ■ l I ■ 

16050 END 

16300 CALL CLEAR 

16501 CALL SCREEN ill) 

16302 FOR 1-1 TO 16 

16503 CALL COLORd, 2. 11) 

16504 NEXT I 

16305 PRINT "VOUS VOICI DANS LA PYRAMIDE 
.'■i-'VOUS ARRIVEZ DANS UN COULOIR" :: "SOU 
BRE. RESTEZ VIGILANT !"':i:i 
16506 FOR 1-1 TO 500 
16307 NEXT I 
16520 TB-2 

16522 CALL CLEAR 

16523 CALL SCREEN (1 1 ) 
16525 RESTORE 16550 
16530 FOR H-96 TO 107 
lt535 READ MM* 

16540 CALL CHAR <H. MM* ) 

16545 NEXT H 

16550 DATA AA5SAAS5AA55AAS5, 1B1B137ED010 

101B.00183C3C7E7EFFFF.995A3C18183C5A99. 1 

B1B1B181B18181B. 242424242424 3C00 

16535 DATA BOCOEOFOFBFCFEFT. 0103070F 1F3F 

7FFF.FFFFFFFFFFFFFFFF, 04020 1FFFF0 10204, F 

FFF7E7E3C3C1B00.0 

16558 CALL CHAR! 117,"") 

16560 CALL COLOR (9, 2, 1 1 ) 

16565 CALL COLOR d 2, 13. 1 1 ) 

16570 CALL COLOR ( 10. 2. I 1 ) 

16575 RESTORE 16600 

16580 FOR K-I TO 13 

165B5 READ O.M.E.R 



16590 CALL HCHAR (Q. M,E. R) 

16595 NEXT K 

16600 DATA 1.1.104,192,18,1,104,192,10,1 

, 104,35,7, 1.9B.32.9, 1,106.32, 11,4, 101,26 

16603 DATA 14.1,104,32,13,1,96,96,11,30, 

104,3,13, 1, 104,2, 13,31,104,2,13.3, 102,1, 

13,30,103,1, 12,31,105, 1 

16610 DATA 12,2,120,1 

16615 FOR 1-1 TO 16 

16620 CALL HCHARI8, 1*2, 99) 

16625 NEXT I 

16630 FOR K-l TO 16 

16635 CALL HCHAR C 14, K«2, 97) 

16640 NEXT K 

16642 ' -13 

16644 Y-4 

16650 CALL CHAR (120, " 18181 3FE901C7446F > 

16635 CALL HCHAR ( 12, 2, 1 17) 

16660 CALL HCHAR ( X , Y, 120) 

16660 FOR ZILL-1 TO 10OO 

166B3 AA-INT(RND*23)+4 

16690 CALL VCHAft (12. AA, IO0.2) 

16692 IF AA-Y THEN 19993 

16693 CALL SOUND I 50, -6. ) 
16700 CALL VCHAR(12,AA, 117,2) 
16702 GOSUB 19000 

16705 NEXT ZILL 

16710 GOTO 20000 

17000 CALL CLEAR: 

17005 T8=3 

17010 CALL SCREENI11) 

17015 RESTORE 17040 

1702O FOR 1-1 TO 28 

17025 READ N.H* 

17030 CALL CHAR<N.M*) 

17033 NEXT I 

17040 DATA 104, FFFF 1B3060C0. 103, FFFR, 106 

, 1C1C1C1C1C1C1C1C, 107, 1C1C1C1C1C1F1F1F, 1 

17, 

17045 DATA 10B, 1C1C1C1C1CFFFFFF, 109. 1C1C 

1C1C1CFCFCFC, 1 12, 0103070F1F3F7FFF, 113,00 

OOOOOO 1 83C7EFF 

17050 DATA 1 14. B0C0E0FOF8FCFEFF, 1 15.FFFF 

FFFFFFFFFFFF, 120. OOCOCOFOFOFCFCFF. 121, FF 

FFFFFFFFFFFFFF 

17035 DATA 128, 1818OA7E0B3B2442. 129, OOOO 

00001 43E7FFF, 136. 0000 00000 4 0404 OE . 137,01 

0307070E1E1E3E 

17060 DATA 1 38, 00000000 183CFFCF, 139, OEOE 

OE0EOE2E2EEE, 1 40, 044EEEEEEEEEEEEE. 141, 3F 

3F3F3F3F3F3F1F 

17063 DATA 142, CFFFFF7FO7030100. 143, FEFF 

FFFFFFFFFFFF, 1 44. EEFFFFFFFFFFFFFF, 145. 9F 

BFFEFEFEFCF880 

17070 DATA 146, 0000000101010307 , 147, FFF8 

FOEOCOCOCOBO. 148. FF3F1 F0F0F1E7EFC. 149.00 

OOOOOOOOOOFFFF 

17075 CALL CHAR 1101 . "2424242424243C00" ) 

170B0 CALL CHAR(152."181812FE901C7446") 

17084 PRINT " q "t 
"yyv per" 

17085 PRINT "vyyy vyyy 



17O90 
17093 
17100 
17103 
17110 

y" 

17113 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


■yyyyy 

vyyyyyy" 
' yyyyy yyvyyyyyyyyyyyvyy 

yyyyyyyyyyyyyyyyyyyyyy 


yyyy 


PRINT 


' yy yyyyyy vyyyyy vyyyyyy y 


yyyy 


17120 


PRINT 


"yy 


•yyyyyyy 


yyyy 


17125 


PRINT 


'yy j 


•yyyyyy 


. v v y 


17130 


PRINT 


"yy JJj 


•yyyyy 


yyyy 


1 7 1 


PRINT 


'yy klm 


•vyyy 


yyyy 


17140 


PRINT 


•yy j 


•yyy 


yyyy 


17143 


PRINT 


'vy j 


'VV 


yvvv 


17150 


PRINT 


■yy y 


my 


WW 


17155 


PRINT 


-yy yyy 


f 


vyyy 


17160 


PRINT 


"yyyyyyvyyx 


y 


YVYY 


17163 


PRINT 


"yyyyy yyyyyn 


Y 


vyyy 


17170 


PRINT 


'vyvyvyyyvyyn 


V 


yyyy 


17175 


PRINT 


'vyyyyyyyyyvyx 


y 


yyyy 


171B0 

y" 

171B5 


PRINT 


"yyyyyyyyyyyyy" 




yyy 


PRINT 


- yyyyyy y yyy yyyyyy yyyyy yyyyyy 


171B9 
17190 
17195 
17200 
17205 


RESTORE 17210 
FOR 1-1 TO 14 
READ R.S.T 
CALL HCHAR (R.S.T) 
NEXT I 







Suite page 27 



L'EMPIRE CELESTEMJ^ B m^m' 






Fanas d'exotisrne, voici un jeu qui vous emmenera au 
XtX eme siecle,en Chine ou vous serez commercant cher- 
chant fortune. Mais ce negoce ne sera pas sans ris- 
ques. En effet, lors des traversees, vous aurez a faire 
face aux orages, aux recifs, aux pirates et perdrez 
ainsi soit votre argent, soit vos march and ises, soit 
votre jonque. 

Serge BAGLAN. 




CALL HCHAR ( 



110 GOSUB 420 ll GOSUB 680 II GOTO S30 

190 »#"»•#»#«« 

200 FOR 1-0 TO v'i: DISPLAY AT (Z+I . 1 J I SE 

a* (A*. 1 - TB» 1 . 2B) : : NEXT I : : RETURN 

230 CALL CHARI36, "00000OFFFF0O0OOO1B1B18 

FFFF"fcRPT*t"lB", 11) >! i CALL HCHAR ( 1 , 9. 36 

,16)11 CALL HCHAR IS, 9, 36. 16) 

260 CALL VCHAR(1,6,37,3> t : CALL VCHAR < 1 . 

25,37,3>:j DISPLAY AT(2,6)t"&L EMPIRE CE 

LESTE&." 

270 DISFLAY AT (24. 6) : "PRESSEZ UNE TOUCHE 

" il CALL COLOR( 1, 16, 1) : : RETURN 

280 >N**CCIULElJR5MttN 

290 FOR 1 = 1 TQ 14 :t CALL COLOR ( 1 , 1 1 . 1 ) I 

: NEXT 1 ■: FOR 1=3 TO 8 II CALL COLORU 

,10,1)11 NEXT I l| RETURN 

293 ■##• T1TRE "*« 

300 DATA FBFCFEFFFFFFFFFF1F3F7FFFFFFFFFF 

FFFFFFFFFFF7F3F1FFFFFFFFFFFFEFCFS 

310 DATA FFFFFFFFFFFFFFFFBOCOEOFOFBFCFEF 

F0103070F1F3F7FFFFF7F7F3F3F1F1F0F 

320 DATA 0F07070303010100B080C0C0C0C0E0E 

0F0F0F8F8FCFCFEFEFFFF3 

325 DATA FFFEFEFCFCFSFBFOFOEOEOCOCOeoaOO 

O0E1C3B 

330 DATA 0000000707070707070707E7F07F3F1 

FOOOOB0B0BOCOEOEOFOFOF0FOB7FEFCFB. 

350 RESTORE 300 M FOR 1-64 TO 84 STEP 4 

:: READ A* it CALL CHAR ! I , AH : : NEXT I 
360 DISPLAY AT(3,2>i"D N DDD DEFD DDi* D 

DD9 DDD":" D D DBLD D D D D D D" s " 

D DD DHMD DDC D DDC DD" 
370 DISPLAY AT(6.2):"D D D D D 

DGI D"J" DDD DDD DDD D DHJ DDD" 
3B0 DISPLAY ATI10.2) t "ADD DDD D DDD AD 
D DDD DDD".-" D D D D D D D" i 
■■ D DD D DD BC'U D DD" 
390 DISPLAY AT(13,2)t"D DDD 
D D D"i" BDD DDD DDD DDD DDC D DDD" 
400 CALL MAGNIFY<3>:: CALL HCHAR (20. 1 , 84 
,128)1= CALL SPRITEt#l,B0,7, 137, 1,0.6) 
410 CALL C0L0RC3, 1 1, 1,6, 11, 1,7,5,5) i i RE 
TURN 

415 • ttltlttttttt#« 

420 CALL CLEAR :: CALL CHARSET ll A«-"-V 
ous etes un commercant rtconnu tree h 
abiles dan = vol transactions da orodul 
ts" 
430 G0SU8 290 :i CALL SCREENI14):: GOSUB 

■7^n ■ ■ v»~ -T ?==. ■■ rdsub 2O0 

440 AS="-Mats un tvphon * detrult tout 

vos entrepots et toutesvos jonque*. Cet 
evenement vous fait repartir a ltra> " 
i : Y-3 i i : 9 i i GOSUB 200 

430 A««"-Vous dever accummuler lOOO 
000 taels en voyageant de port (n port. 
■' :: Y=Z li Z = 14 :: GOSUB 20O 
460 A*-"-AH' La chine au 19 Steele" i: Y 
-O it Z = 19 :: GOSUB 200 
490 CALL ATT : : RETURN 
495 'ttBCARTE DE CHINE## 

500 DATA 0000000000000000001033131010103 
BOOOE 1101 0204CBDFC0CE 1101 060 1 1 lOE 
510 DATA 0010303090FB1313001F101E0101D1C 
EC0C60B1 1 C I 2 1 20C03FB08 102040404 
520 DATA OOOOOOOOOOB0E0F8O3O3O3O3O101000 
OOO8O808060COC0C0FF3F3FOFO3O1 
530 DATA C0C0C0F0FBFC3C1CFFFFFFFFFFFFFFF 
FO 

540 DATA FFFFFFFFFEFCFBF0FFFFE7C3C3C3B7B 
3FFFFFFFDFBF0E0C0F8FCFEFF7F3F7F7F 
530 DATA OOOOOOOUC0E0F0FBFFFFFEFCF8F0FCF 
FB30103000002u7BFB0800Q00001BF8FO 
560 DATA 5B0101O3O3OOO0O0FEFEFFFFFFFE7E7 
CFFFFFFFFFFFEFEFCEOBO 

570 DATA FC7C7B302O0O000OFCFCFEFFFFFFFFF 
FO000O000C0EOF0F6FEFFFFFCFFFFFFFF 
580 DATA 00000OO080COCOCOBO10F0F0F0EOEOE 
001030303O30307030O0OEOCOCOCOCO8O8 
590 DATA 3F0F070703030301FBF0FBF0F0E0C0B 
OFFFFFDFEFEFEFCFBFFFFEAC 

60'.' DATA FFFFFFFFFFF0EOCOFFFFFFFB5B1B1C0 
EE0C0C08000000000FFFFFFFFFEFEFCFC 
61'.' DATA FCFEFFFFFFFFFFFFOOOOBOCOEOFBFCF 
EFFFFFDFCF0E08000FFFFFFFF7F3F1F1F 
620 DATA O0EOF0FOF8FSFCFC1F1F1F1F0FOF0F0 
7FFFFFFFFFFFFF7F3FCFCFEFCFCFCFCFB 
630 DATA 07030303030301 01F2E0E0F0E0E0C0C 
01F0FQ30301010000FFFFFFFFFFFFFF4F 
640 DATA FFFFFFFFFFFFFCFBF8F0F0E0C080000 
0030301 O103O7OF07B0B080808OC0COC 
650 DATA O7O7O3O3O3O2O0OOF8FOCO8O00O000O 
00707020000000000EBFCFC7E3F1F1FOF 
660 DATA 000000000060EOFB030303030101000 
oooBoaoaoeocococoso 1 OFOFOFOEOEOEO 

670 DATA C0C0C0F0FSFC3C1CFFFFFFFFFFFFFFF 

FO 

660 RESTORE 500 :: CALL CLEAR :: CALL CH 

ARSET :: CALL SCREEN(2>i: CALL CHARI123. 

RPTsC'F". 16), 125,"000E11U0E11D1CE") 

690 FOR 1=32 TO 140 STEP 4 s i IF I=4B TH 

EN 1=64 ELSF IF [=96 THEN 1=128 

700 READ A* : : CALL CHARU.A»>:t NEXT I 

710 DISFLAY fllC.lli" «.."i" 

ABCD."=" EFGHI.-i" JK. 



720 DISFLAY AT(6.1) : 



740 DISPLAY AT ( 1 4 . 



■MM. 



770 CALL HCHAR ( 

24.1. 123. 32> 

7B0 CALL SCREENC17): : FOR 1=2 TQ 14 :: C 

ALL COLORU. 11,6):: NEXT I :i CALL COLOR 

19, IS, 1. 10, 15. 1, 1 1. 13. 1. 12. 13, 1) 

790 CALL VCHARI2.2.45. !31 i i CALL HCHAR t 1 

3,2.B4)t: CALL HCHAR ( 16. 2. B2> : : CALL VCH 

ARI17. 2.46.7) 

BOO CALL MAGNIFY(l) i : CALL SPRI TE (#1 . 33. 

2, 26. 70. #2. 34. 2, 48. 97, #3. 33. 2. 93, 79. #4.? 

6,2, 135.56) 

810 CALL SPRITE (#5.37.2. 128. 3B, #6. 38.2. 1 

76, 53, »7, 39,2, 159,31,116, 123.2, 115.23) 

B20 CALL C0L0R(3, 12, 1.4, 12, 1) : : DISPLAY 

AT (2, 19> i "1 empire" : : DISPLAY AT (4. 19) : 

830 DATA 1 tie< 

saigon, 5 bang) ■ 

rangoun 

B40 RESTORE B30 :: FOR 1*1 TO 8 ll READ 

at -.: DISPLAY AT 15+1*2. 1 7> ! A* ll NEXT I 

i I CALL ATT I : RETURN 

B43 -ttHVILLES ET PRODUITStM 

B45 CALL ATT :: CALL HCHAR I 1 0. 20. 32, 332) 

: : RETURN 

B50 CALL CLEAR II CALL DELSPRITE ( ALL) i : 

A*="-Dans Lhaque port, on peut acheter 

□ li vendre certaines marchandi ses dont vo 

ici la lister" 

860 CALL SCREEN(14):i CALL CHARSET :: GO 

SUB 290 il GOSUB 250 :i Y-3 :: 2*3 i: GO 

SUB 200 :i DISPLAY AT ( 10. 1 I : " -Dans le po 

rt detTIENTSIN" 

870 DISPLAY ATU2,4):"Bois": i " The": 

i" Porcelaine": t" Sote": Or": 

i " Divers" :: GOSUB B43 

B80 DISPLAY AT ( 10. 1 B) : "CHANGAI " : i" Ar 

me": j" Poudre": : " Whisky": :" Se 

1": : " Epices" :: GOSUB B43 

H90 DISPLAY ATI10,lB)t "MACAO": : " Opiu 

in"! i " Sole" i :" Bois": t" Whisky" 

: : " The" i: GOSUB B45 

900 DISPLAY AT ( 10. IB) : "SAIGON": :" Pou 

Ore" : •- " Arme": i " Sel ": : " Fore el 

aine": :" Epices" i: GOSUB B43 

910 DISPLAY AT(10. IB) : "BANGKOK": i" Op 

ium"t t" Eplces"i :" Or"i :" Bois" 

: :" Saie" :: GOSUB B45 

920 DISPLAY ATI10. 18) : "SINGAPOUR" : :" 

Porcelaine": i" The"t : " Or": :" W 

hisky"t :" Sal" t: GOSUB B45 

930 DISPLAY AT ( 10, IB) i "PENANG" : :" Opi 

um"i i " Bais"» i " Sol-"i ■ " Poudr* 

"i i" Epices" u GOSUB 845 

940 DISPLAY AT ( 10, IB) : "RANGOUN" i :" Wh 



T,f> 1 " 



: •• Or " : : CALL ATT 

945 nulla. « 

930 CALL CLEAR :! A*="-Li 
de part enport.bien des i 
ettentile calme.l orage, 



des voyaqes 
>s reel f s. 1 es 



960 GOSUB 230 :: Y=3 ll Z=5 :i GOSUB 200 
:: A*="-Le calme et 1 orage vous font 
perdre des produitt." :: Y=l :i Z-10 :: 
GOSUB 200 
970 A«*"'-Le« recifs peuvent vous fair 
e perdre vos pradults etvotre jonque. si 
vous ne les evite; pas." :: Y-3 t: Z-13 
: : GOSUB 200 

980 A*="-Les pirates peuvent couler votr 
• i on que ou vous prendrevotre argent, si 
vous ne les detruise; pas." 11 Y=4 ji Z- 
IB t: GOSUB 200 il CALL ATT 
1000 CALL CLEAR n At="-Pour les recifs 
et les pirates. ut t 1 isez la manette d 
e jeu 1 et appuver sur le bouton FEU pa 



1010 GOSUB 250 



Y=3 



_' = 5 



GOSUB 20 



1020 i 



-Pour voyager, vai 



760 nisriftf AT(22,n j». ..* ":RrT 

• (".".13):: CALL VCMARCI. 1. 123. 24) 1 1 LAL 
L VCHAR ti. 16.123,24>ii CALL VCHAR C 1 . 32. ] 



ir achete une jonque. Maissl elle vous se 
mble ne plus cohvenir pour transporter'* 

ti Y=3 :: Z*10 ti GOSUB 200 

1030 AS="vos marchandises. Vous pouveila 
vendre et en acheter une autre plus gran 
de ou plus petite." ti Y-3 it Z-14 :i 
GOSUB 200 

1040 A*="-Une fois au port, vous in ser 
ez peut-etre pas arrive au bout de vos 
peines." ti Y=2 :i Z-19 it GOSUB 200 :i 
CALL ATT 

1041 CALL CLEAR :: GOSUB 230 l: A**"-Lor 
s d'achat ou de vente.ilee pourra que le 

priK de 1' ob jet soit de tael.Cela 
veut dire que le produit" II Y-3 it Z=5 
: : GOSUB 200 

1042 A*="n'est pas dispomble pour lemom 
ent sur le marche. " ;: Y=l ;: Z-9 it GOS 
UB 200 

1043 A«:-"-De ffleme.il se pourra que lecre 
ancier du port soit partivisiter sa prov 
i nee. Dans ce" :: Y-2 || Z-12 :: GOSUB 20 


1044 A*»"c»», vous ne pourrt: pas fai 
re de transactions de tsels avec lul. 
" ii Y-2 ii Z-13 :: GOSUB 20O 

1043 A*-"-Lorsque vous empruntez de I 'a 
egent.vous ne pourrt; pasprendre plus de 
6000 taels achaque escale. " II Y-3 ti Z 
* 1 9 j : GOSUB 200 : .- CALL ATT 
1030 CALL CLEAR u GOSUB 230 i: DISPLAY 
AT(12. 7) i"Voulez vous revoir": :TAB(B):" 
Ik regies" (0/N) " 

1060 CALL KEY(0.0.W)i: IF 0=79 THEN 110 
ELSE IF 0: 7B THEN 1060 

1200 CALL CLEAR r: GOSUB 250 :: DISFLAY 
AT (10.9) : "ET MAINTENANT" it DISPLAY AT ( 1 
2,B):"B0NNE CHANCE •!• " it DISPLAY AT(20. 
3>:"Charqer la second* partie" 
1210 CALL MUSI DUE 
2000 RUN "CS1" 

3°90 ' ##»S0US FROGRAMflES-"* 
4000 SUB MUSI DUE 



4"10 DATA 466,554.554,554.622.740,831.83 

1, 932. B3 1,740. 932, 1109. 1243. 1245. 1480. 16 

61 . 1661 , 1864, 1864 

4020 DATA 221 7. 2489. 2960. 2960. 24B9, 3322, 

3322.2960,2217.2469.2489, 2960, 2217. 1B64, 

1661, 1661. 1245. 1 109, 1 109 

4030 DATA 932,466.466.334.932.1109.1245. 

1480.1661, 1245. 1864. 932. B31 

4040 DATA B31 , 740. 622, 622. 932, 622. 534. S3 

4,622.466.466,466 

40S0 RESTORE 4010 :i FOR 1=1 TO 64 :: RE 

AD A :i CALL SOUNDt 14O.A.0) : : CALL SOUND 

(1,110,30):: CALL KEY (0, L, M) t t IF M< - T 

HEN SUBEX1T 

4060 NEXT I t : GOTO 4050 

4070 SUBEND 

40B0 SUB ATT 

4090 CALL KEY(O.L.M):: IF M-0 THEN 4090 

4100 FOR 1-1 TO 3 li CALL S0UND(-10. 1864 

.0,2217,0)11 NEXT I 

4110 SUBEND 



2 'L'EMPIRE CELESTE 

4 '2en>e PARTIE 

3 ■ 

10 DATA 0.0.0.0.15.1.60,7.14.1.136.3.13. 
1, 128.3, 14,3. 12B. 3, 1, 1.32,1, 1,1.32,1 

11 DATA 15.1.60,7,14.2,88.1. 14.4, BB, 1, 13 
,2.72, 1, 13,3,74, 1, 13.4,73. 1 

12 DATA IS. 1, BO. 6. 14, 1. 136.4, 13, 1,74,3. 1 
3,4.73, 1,1, 1.32, 1,1, 1,32, 1 

13 DATA 15.1.80.6.14,1.136,2,14,3,136,1, 
1. 1,32, 1,1, 1.32. 1, 1, 1,32. 1 

14 DATA IS, 1, BO, 6, 14.3.88,2, 13,3,72,1, 13 
,4.73,1,1,1,32,1,1,1,32.1 

15 DATA 15, 1.B0.6, 14. 1,136,4, 13, 1, 136,3, 
12.1, 136,2, 11, 1, 128, 2,1, 1,32,1 

16 DATA 15. 1, BO. 3, 1,1, 32, 1,1, 1,32, 1, 1, 1, 
32, 1,1,1,32, 1,1,1,32,1 

17 DATA 15. 1, BO, 6. 14,2,88,6, 14,3, 12B, 4. 1 
3,2.72,1,13,3,74.4,13,7,73,1 

90 DEF RO(X)=INT(X#(l+RND)/2) : : CALL MAG 
NIFY(3)t: CALL CHAR ( 126. "0" ) 
100 CALL CLEAR i: CALL SCREEN* 14):: RAND 
OMIZE i: CALL COLOR (3. 10, , 4. 10. 14. 9, 1 1 
.14. 10,11. 14, 11. II. 14. 12.11. 14 i ■: 8P?IfiN 

BASE 1 
1 IO DIM C(8>,BA<4> ,P(12) ,AP( 12) ,P«(12) i : 

CALL CHAR (42. "OOOOOOFFFF" , 36, " 1 B387B0B8 
97E3C1B") I t CALL COLOR ( 1 , 13, 1 . 2, 13. 1 ) 
120 DISPLAY AT(2.3)i"»* le celeste empir 
e **" t: DISPLAY AT (9. 1) i "avec qui joue 
je "■' :: DISPLAY AT (19, 1 > t "relever alpha 

look" :s ACCEPT AT(9. I91SIZE ! 10) :N8 
135 GOSUB 3040 

140 Ptl>=5«INT(RND-28-H0) : i PI9)=19»INT t 
RND#20+50): : P(2)=10»INT(RND*14+6) :: P(3 
> =5- I NT < RND»30+ 1 ) 

150 P(IO)=7«INT(RND»30»10)I : PI4)-10»INT 
(RND«70»30) :: P (5) =13»INT (RND» 1 H-4) : : P( 
6)=20»INT(RND»20*30) 

160 P(7)>100«INT(RND-B0+30) i ; P( 1 1 ) =90* I 
NT(RND»B0*20) : i P (B) = 1 o« INT (RND»14-*5) i t 
P(12)-INT(RND»15+1) 
170 CALL SCR£EN(14):: L1=L :: GOSUB 3000 

:: GOSUB 3020 :: IF VOY-0 THEN CRPA= 1 E 
LSE CRPA'RND 

160 FOR I-t TO 4 :: BA ( I ) = ( INT (RND» 13* 10 
0) ) »I»25 : : Z^RND : : IF Z .2 THEN BA ( 1 ) = 

190 NEXT I :: FOR 1-1 TO 12 :i 2=RND :: 

IF Z<-2 THEN P(I.=0 

rOO NEXT I :: GG=6000 

210 DISPLAY AT ( 1 . 1NT( (23-LEN<N») ) /2) I ERA 

SE AL I i " ma i sfio " ;N«: RPTs ( "••■ . 2fi< 

220 DISPLAY AT (4, 3) l USING "banoue »» 

ttNflHWHtt taels"iB it DISPLAY AT(6.3>:NC* 

:: DISPLAY AT (6. 14) : USING "•----"-■» tae 

ls"tC(L) 

2B0 DISPLAY AT (7. 3) : "port de " l L» 

290 DISPLAY AT 19, 3) : "1 -acheter "t i" 2-v 

endre"t :" 3-bateaux " 

300 DISPLAY AT (13. 3) t "4-creanci ers" i i " 

5-appareiller": : " 6- abandon" : RPTS ("»" 
,2B)i iTAB(lO) 1 "votre chol K " 
310 CALL KEY(O.Q.W) : : IF 0<49 OR 0>54 TH 
EN 310 

320 CALL K : i ON 0-46 GOTO 330.440,550.9 
00,1000, 1900 

350 A*="aehaf :: DL=3 l: GOSUB 3070 
360 CALL KEY(0.D,W)it IF 0<49 OR 0>54 TH 
EN 360 

370 CALL K :i RESTORE 3120 it FOR 1*1 TO 
L»6 it READ M ti NEXT I || FOR 1-1 TO O 

-48 :t READ R :: NEXT I i: IF P(R)-0 THE 

N 1230 

3B0 DISPLAY AT I 10. 1 ) ERASE ALL t "vous pouv 

ei en acheter " J INT (B/P(R) ) I " caisses" 

390 DISPLAY AT I 13. 1 ) i "nombre de calsses" 
t: ACCEPT AT(13,20)SIZEI3)VALIDATE(DIGI 

T)BEEP:Q 

400 IF Q*P(R) B OR Q >U THEN 390 

410 B=B-0»P(R)i: U=U-0 :t AP (R) -AP (R) *0 

:: GOTO 210 

440 A«="vente" :: DL=3 :: GOSUB 3070 

450 CALL KEY(0,0,W):: IF 0-49 OR Q>54 TH 

EN 450 

460 CALL K :i RESTORE 3120 t: FOR 1-1 TO 
L#6 l: READ M :t NEXT I :t FOR 1-1 TO D 

-48 t! READ R ti NEXT I tt IF P(R)-0 THE 

N 1230 

470 DISPLAY AT ( IO. 1 ) ERASE ALL t "vous ne p 

ouves en vendre que" I AP (R) i "cai sses" 

480 DISPLAY AT(15.1)i"nombre de caisses" 
ACCEFT AT(15.20)SIZE(3)VALIDATE(DIGI 



500 B=B+P(R)»0 :j U-U+0 it AP (R) -AP(R) -0 
310 FOR 1-1 TO 8 tt ]»F B>=1E6 AND C(I)= 
THEN BC=BC»1 

520 NEXT 1 :: IF U:0 THEN 430 ELSE IF BC 
• >B THEN BC=0 : : GOTO 210 

530 DISPLAY AT(15, 10)ERASE ALL: "bravo •' 
''•: :TAB(7)!"une nouvelle partie ?" 
540 CALL KEY(0,0,W)it IF 0=79 THEN 133 T 
HEN ELSE CALL CLEAR :: GOTO 1910 
550 DISFLAY AT ( 1 . 1 0) ERASE ALL: "bateau.: " : 
RPT«("»",26) 

560 DISPLAY AT (5. 2) : USING "banque *#«"#* 
"tt" taels":B 
570 DISPLAY AT (B, 1 ) : "capaci te 

pr l « " 
580 FOR 1*1 TO 4 i: DISPLAY ATI 10+1*2, 1> 
:USING "# HUH caisses "#«•# taels": I. 
I*23.BA(I)it NEXT I 

390 DISPLAY AT ( 19. 1 ) t RPTS I "*" , 2B) : lTAB( 
9) : "votre cholK" 

600 CALL KEY(O.M.W) ! : IF M< 49 OR M>52 TH 
EN 600 ELSE M=M-4B 
605 IF BA(M)=0 THEN 600 
610 CALL K :i DISPLAY ATI21 . 1 ) : " l-ach*t " 

615 CALL KEY(O.MM.W):i IF MM=49 THEN 620 

ELSE IF MM=30 THEN 650 ELSE 615 
620 CALL K !l IF AB.>M*23 THEN 630 
625 CALL 5(300.-7.0):: CALL WdOO)t: GOT 
210 

630 IF BA(M)=0 THEN 330 ELSE IF B-BAIMX 
O THEN GOSUB 790 i: GOTO 210 
640 AB-M*23 t: B=>B-BA(M)i: U=AB-U ll GOT 
210 

630 CALL Kit IF AB-M-23 THEN AB=0 : i B= 
B+BA(M) l t GOTO 210 
660 PRINT "vous n ' avei pas ce bateau" 

CALL SI300.-3.0) t i CALL WI200)t: GOTO 2 
10 

790 PRINT "vous n ' avei pas Mtt: " : : CAL 
L 5(600, -7. 0>t: CALL WI400H: RETURN 
90O IF CRPA<-1 THEN PRINT NC-J " est en v 
oyage" II CALL WI300):: GOTO 210 ELSE DI 
SPLAY ATI1. 101ERASE ALU "creanciers" iRPT 
*("*", 28) 
910 DISPLAY AT(4,l)i" port nom 

taels" :: FOR Ll=l TO B i : GOSUB 3000 
:j DISPLAY AT(4+L1«2, 1) iLI i: NEXT Ll 
920 FOR Ll-1 TO 8 t t BOSUB 3020 t: DI9PL 
AY AT(4+L1»2, 10) : "*"INC« tt NEXT Ll 
930 L1-LL1 t: CC-O It FOR 1-1 TO B ll Dl 
SPLAY AT(4+I-2,21)lUSING "••*••#•«" i C ( I > 

ii GG-CG*GU)II NEXT I 

940 DISPLAY AT (21 , 1 ) I RPT« ("•" , 2B> t t t"l 
-emprunt 2-reisbourse«ent " ti DISPLAY 

AT (22, IB) i USING ■'•»■ t"iC:: 

930 CALL HCHAR(4*L*2,2,36) 

960 CALL KEY<0,n,Q)ii IF M<49 OR M>30 TH 

EN 960 

970 CALL K it CALL HCHARI23, 1 , 32,64) • : D 

ISPLAY AT(23, 1) t "combien de taels 7" ti 
ACCEPT AT(23,20)VALIDATE(DIGIT)iC0 ii ON 

M-4B GOTO 980,990 
980 IF C07GG THEN 210 ELSE B-B+CQ I : C (L 

)=C(L>+CO ll GG-GG-CD ■: GDTO 210 

990 IF CO>B THEN 970 

991 B-B-CO :: C(L>-C(L>-CO ll GOTO 210 
1000 IF AB-0 THEN 310 ELSE ORR-0 

1010 CALL SCREENI14)it DISPLAY AT ( 1 . 9 ) ER 
ASE ALL: "desti nati on" I RPT* I "*" , 26) 
1020 FOR Ll-1 TO 8 i t GOSUB 3000 II DISP 
LAY AT(3+L1»2,3) iLlt " " I L« ii NEXT Ll It. 

L1-LL1 
1030 CALL HCHAR(3+L-2.3,36) 
1040 CALL KEY(0,Z.O>lt IF Z<49 OR I >36 T 
HEN 1040 

1030 CALL K t t IF Z-480L THEM 1060 
1051 PRINT "vous etes deja dans ce port" 

:t CALL 5(300,-1.0):: CALL W(200)l: GOT 
1010 

1060 FOR 1=1 TO 8 
tt NEXT I 
1070 VOY-VOY+1 : : 
L ■: Zl-1 
1080 GOSUB 4OO0 : 
2)tl ON INT(RND*3 
1400. 1590 

1100 EV=0 ti CALL W(4500 
1200 FOR Y=6 TO STEP - 
i: CALL M0TI0N(#1.0,Y)i: 
T(RND»20+l)i t CALL E 
1210 DISPLAY ATI21. 1) t "nombre"de"jour s d» 
-calme:"" t: FOR 1 = 1 TO EV tt CALL SI20 
0,220»I.0)it DISPLAY AT(21.26)lI ll CALL 

W(60)i: NEXT 1 :: FOR J=l TO 8 tt AP(J) 
-RO(AP(J) ) : t NEXT J 

1220 FOR Y-l TO 6 :t CALL MOTION ( | 1 , 0. Y> 
t : CALL W(400):: NEXT Y 

1230 CALL E :: DISPLAY AT (21 . 1 ) : "eel *-vn 
us"-a^f ait % pourrir "■"''""" quel ques' w unes""de'-vo 
% -«.—*^ ^— 'merchandises "8.RPT* ( "*■", 16) 
1240 CALL H( 1200)11 GOTO 18O0 
1230 DISPLAY AT(13. 1 ) ERASE ALL: "i 1 -n' v""a 
' t plus' 1 'ce-produit' v surle-marche , "en"-ce'*-*o«iB 
nt" j: CALL SOUNDdOOO. 4000,0.2000.0) ii 
CALL W(400)it GOTO 210 

1300 CALL K it EV-INT (RND*10+1 ) : i DISPLA 
Y AT (21. 3) t "nombre^de^our^d^araqet — " 
1310 CALL CHAR(B8,RPT»r , 01".9>(."03030911 
21418101O204081020408") t i CALL COLOR (B. 1 
. 1) 
1320 FOR 1-0 TO EV It 1 1 = INT IRND»16+3) I t 

CALL VCHAR(1.II+3.B6.9):: CALL HCHARI6. 
II+3,B9)i: CALL HCHAR ( 7. I 1*2. 90) 
1330 CALL VCHAR(8.II+l.BB.5):i CALL HCHA 
R( 12. II+2.B9) : i CALL VCHAR 1 13, 1 1+2.68. 2) 
.■ : CALL HCHARU3, 11 + 1,90) 

1340 CALL VCHARI14, 1I.8B.2) t t CALL COLOR 
(8,11. lit: CALL SCREEN(2)tt CALL S(500.- 
7.0):t CALL W<300)t: CALL COLOR (8. 1 . 1 ) t i 

CALL SCREEN(B) 



C(1)=INT(C(I) 



L-Z-46 



GOTO 1800 
: CALL W(300) 
XT Y t i EV-IN 



I :0 



IF AP(1 



I THEN 



LEGENDE 



Dieu du ciel ! Le Diable risque de reduire le genre hu- 
main en esclavage. Vous etes charge par la commis- 
sion intergalactique des forces militaires (rien que pa), 
de detruire cette entite malefique el son royaume mau- 
dit. 

Patrice BODET 



Mode d'emploi : 

Le Diable a 5 vies el ce |eu ensorcele mobiiisera toules vos res 

sources humaines. Les regies sont dans le programme 



DEFGR*' 



95. 162, 
26. 126.6 
5.36.231 



.-"• -'Jl»TE0.^.i):i:l:-: H~REEN3.0.4 
26 I LEAR, .63«E>EFGR*<8 .=16.40, It. 
16.40. 108:C'EFCPf ■ 1 ■ =23. £8. 8. 28. 1 
56.8iDEFGR*'2>=25,28.28. 1?. 16,16 
~Q IEFGR*' 3:. = 36.36. 126. 126.68,66 
:DEFCR*(4)"253, I 26. 68.68, 126. 126 
EFCR*t3>«I6, 113,95, 126,38,45,63, 
35 DEFGR«<57)*1.33, 16. 15, 1 . 1, 1,8 
58)=1, 1,1,1, 1,1, l,3:DEFGR*<5' 
2=. 193.255. 193.192. 128: DEFGR*' 60 
2, 192.64,64,64.64, 36: DEFGR*' 61 >= 

40 DEFGR*' 7) -68, 126. 153. 189,255 
60:DEFGRS<8>=6, 126.126. 126, 126, 1 
: DEFGR*' 9 '■ = 126. 231, 231. 126.90. 
! DEFGR*' 6 '=6.8.8,6,246,0,8,6 
45 DEFGR*' 62>=76. 170,21. 181. 1' 



50 t'EFGP*. 18'=0,e,0, 16,255, 16.8, 0! [>EFGR* 

• 11 =0.0.0,0, 128, 128. I 92,0: DEFGR*' 12 >=8, 
8.6. 8.224. 6.0.0: DEFGR*' 13> = 7.7.2. 7. 143,8 
7.39,2 

66 DEFGR*' 14)=36.255.36.255.36,255,36,25 
5:DEFGRI- 15>=36. 24.0.255, 60, 0.0, 8= DEFGR* 
16 =165. 153,66. 126. 68. 8. 0, 0: DEFGR*' 17>= 
36,24.8.68. 126. 129,129.6 

61 DEFGR*' IS - = 32,32, 17. 15, 5- 7. 6, 3:DEFGR5 
, J? .=4,4,136,248, 166,224,96, 192: DEFGR*' 2 
6 ■ = 1,3. 31. 127.255,255.255. 127: DEFGR*' 21 ) 
-126, 1 92. £48, 254, £55. 255, 255. 254: DEFCR*. 
££■ = 63. 7 1. 15.7, 15. 16. 32, 96: DEFGR*' 23 > =25 
2.248,248,224,240,8.4,6 

62 DEFGP*.24>=0.21,21.21.31. 14, 4.4: DEFGR 
I ' 25 > =4. 4. 28. 52. 228. 196. 132, 4: DEFGR*(26'> 
=4.4,6.O,e,0,0.0:DEFGR*<27>=e,0,9,8.9,9, 
0. 21 : DEFGR*' 28 )=2 1.21. 31. 14. 132, 196.228. 
52 : DEFGR*' 29 >=28, 4. 4. 4. 4, 4. 4, 4 

6 3 DEFGR*' 30 >=0. 6. 0.0. 0.0, 3. 3: DEFGR*' 3D 
= 4.8,8, 12,7,3. 1.0: DEFGR* '32 '=0,0. 0,0. 0,0 
.48,48:DEFGR*(33 '=32.32, 16, 12,7,3,1.6 

64 DEFGR* '34 '=6. 6, 0,34, 55, 63, 127,255:t>EF 
GRI' 35 > = 8.8,24, 24, 66, I 88, 255, £55: DEFGR*' 
3? ■ =0,0. 0.6, 48, 246, 252, 255: DEFGR*' 37>=0, 
0. 1,2, 2, 7, 31. 255: DEFGR*' 38)= 128, 128, 128, 
17C.210,251.255,255:DEFGR*<39)=6,6,4,6,6 
. 14, 15, 159 

65 DEFGR*<40)=0.0.6,3.4, 127, 128, I27:DEFG 
Rf .4 1.'=6. 14,39,254, 126, 255. 3, 255: DEFGR*( 
42 .=249. 240, 112. 48. 48. 32, 0.0: DEFGR*' 43)= 
£55.255,223,75,65, I. 1, 1 :DEFGR*<44 >=255,2 
48.224, 192, 192, 128, 0. 0: DEFCR*<45)=255, 63 
. 15. 12.0,0,6.8 

66 DEFGR* ' 46 >=255. 255, 6 1.60, 24,24, 16,16: 
PEFGR* i 47:. =255. 254, £52. 236, 68. 9.0. 8: DEFG 
R*. 48 ' = 129,32,24, 255. 255, 24, 32, 120: DEFGR 

* 49.' = 120. 254, 251. 249. £49, 251, 254. 120: DE 
FGP*'56>=128, 192,224.240.248,252,254,255 

67 DEFGR*i51)=7.7.7.5.4,8.8,48:DEFGR*«52 
'=0.0.0,4,255,4,0,6!DEFGR*<53)=66,66,90, 
76.36.90,66.66:C'EFGP*'54) = e,8,0.0, 128,64 
. 64.96: DEFGR*<55'=1 12.126, 124. 127,127,25 
5. 1 92, 255: DEFGR* < 56 '=6,6.0,224, 16,254, 1, 
254 

68 GOSUB4008 

69 CLS:ATTRB0, i:L0C«TE8. 10: PRINT* VouUz- 
■,oks les regUs^-:PP*=INPUT*n>:flTTRB6,e 
:IF PP*="Q"THEN Pl=l :R2=1 : R3=l : R4=I : P5=l 
:ELSERl=6:R2=0:R3=0:R4=0:R5=0 

-0 -'ESTORE:RU=0! VIE=5: TEMPS=25009: SCORE 
4=0:LEV=i:GOSUB3026 

366 CLS: IF R 1=1 THENLOCATE10, 2: COLOP2:PRI 
NTGP*'5'i :C0L0R1:PRINT"SALLE DES CH1ENS" 
::COL0R2:PRH*TGR<- 5 >:C0L0R6: PRINT: PRINT- 
BUT: TRAVERSER LA SALLE EN EVITANT LA BAR 
PIERE.LES LAZEPS ET LES CHIENS." 
361 IF Pl = l THENPRINTrPRINT-'DEPLBCENENTS 
:":PRINT- . POUR ALLER rt GAUCHE. ": PRINT 
POUR ALLER A 0ROITE.":PRINT-'fl-' POU 
P MONTER.":PRINT- M- POUR DESCENDRE. " : PR 
IHT:PRINT"ESPhCE POUP S'APRETER.* 
302 IF R1=ITHENLOCaTE2.22.0:COLOR7:PRINT 
"FRmPPEZ UNE TOUCHE POUR COMMENCEP.':R*= 
INPUTS l >:P1=0 

369 CLS:K=0:S=i:SCPEEN2,0,0:PSET'0,ll)GR 
*'0 ',i:X=0:Y=li: COLORS: FORI=1TD40:LQCATE 
I.0:PR1NTCHRJi 127>: NEXT:L0CATE17, 0: COLOR 
0. 5: PR INT "LEVEL "LEV: COLORS. 0: FOR I =6T0 19: 
LQCATE0. UPRINTCHP*' 127 ■ :LOCATE40. I SPPIN 
TCHRC 127,. : NEXT: SCORE 1=SC0RE4 

710 FORI=12TO22:LOCATE0. 1 : PRINTCHRf I 127) 
:LOCATE40, I:PRINTCHR*< 12?) : NEXT: FQRI=6T0 
46:L0CATEI,£2:PRINTCHR*< 127 5 : NEXT: LOCATE 
16. IB 

328 BOXF. 15, 1 >-<25>9»CHR*<I27UB0XF< 15,1 
3*-'25,21>CHR*< 127 >: FORI = 1T0VIE: LOCATE I ' 
17,22:COL0R2.5:PRINTGP*' 0.' : NEXT I : COLORS, 
8 

338 FORI =120TO88STEP-i: LINE! 120, 79)-( 1,8 
. :LINE( 126, 184 >-< I, 176 j: NEXT :FORI=260TO2 
46: LINE' 268.79'-' I .0 ' :L INE'208. 194 >-' 1,1 
76): NEXT 

740 COLOP3,0:LOCATE1. 1 : PRINTGR*' 4-:L0CAT 
El,2i:PRINTGR*'3 .:l0CaTE6, I : PRINTGR*<4 ) : 
L0CATE6. 21: PPINTGR*' 3 ■ : L0CATE34. 1 : PPINTG 
P*'4 .:L0CATE34,2l:PRINTGR*l3> 
350 L0CATE38. 1 :PRINTGR«- 4 :- : L0CATE38. 21 : P 
RINTGR*'3'i LOCATE 15. 9:PPINTGP*'4>: LOCATE 
15, 13: PPINTGR*' 3 • : L0CATE25. 9: PPINTGR*' 4 :■ 
:L0CATE25.13:PRINTGP»'3- 

366 LINEill. 17 ■-■ !1. 167, , 4: COSUB400: LINE 
■ 1,2) -< 1,29) " *:&OSUB408:GOSUB38i:LINE'5 
1. 17 .-.51. 167>.4:GOSUB490:LlNE<6,2-.-<6,£ 
9,- ":GOSUB400:GOSUB381 

370 LINE. 275, 17:.-. 275. 167> . 4: COSUB480: LI 
NE' 74.2>-. 34, £0:." ":GOSUB400:GOSOP381SLI 
NE'367, 17 '-' 307. 167 ■ . -»: GO$uB400i L INE ' 38. 
2 ■-- 38,26;.'- ■•:G0S'JB499:G0SUB381 

330 LINE* 1£3.88>-' 123. 103 • . 4:C0SUB488: L I 
NE< 15. 16)-<.15. 12>" ,, :GOSUB400:GOSUB38i:L 
1NE' 283. 80 ,-'£03. !03>.4:COSUB400:l!NE'25 
, 19.'-' 25, 12-* *:GOS.iJB490:Gn?u838i:GOTO36 
9 

381 IFR=0ANDK=5THENP=1 

382 IFR=1ANDK=8THENR=0 

383 IFP=0THENK=K*1 

384 IFR=1THENK=K-1 

385 COLOR7:IFK=1TH£NL0CaTE26. 10:PPINTGR* 
' 14 .:L0CATE26. 1 1 : PPINTGR*. 14 .iL0CATE26,l 
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A suivre: 

En taison de la longueur 
inhabitueiie du listing 
nous passerons ce pro- 
gramme en deux tots 



£:PP!NT&R«(I4> 

386 IFK=2THENLOCATE28.10:PRINTCR*' !4>:L0 
CATE28. li:PRINTGP*. 14.. : L0CATE28. 12:PRINT 

387 IFK=3THENLOCATE28.10:PRINTGR*U4>:LO 
CATE26, li:PPINT- " 

388 IFK=4THEN LOCATE20, 10:PR1NT" * 
398 RETURN 

400 IF P0INT'X<8*4. V«8+4. : I THEN806 

405 A*=1NKEY«: IFA*=""THENrt*=B* 

416 X1 = 'A«=".",-<A*= ,, .-'.:V1 = '-H* = 'A" '-'A* 

= "W j:BS=A* 

411 L0CATE13, 2: C0L0R3: PRINT-SCOPE: "SCORE 

i:L0CATE13,2i:PRINT-TE«PSi"TE*IPS:TEflP5=T 

EMPS-5 

415 IFX=0 ANDA*=","THENX1=-' A*=". " ' 

416 IFX=39 ANDA*="."THENX1 = > A*=". " ' 

420 LOCATEX,Y,0:PRINT" " : X=X*X t i Y=V+Y1 : I 
FSCPEENiX.YJO 32THEN GOSUB 809 
430 COLORl:LOCATEX.Y,e!PRlNTGfi , *t0 , ■ 

435 G0SUB858 

436 IFX=39 ANDY=11THENL0CATE39, ll:COL0R6 
:PRINTGR*'0. :PLH."«5T10O5L10DOSISOLAFd[>O 
RELASIFA":K = 0tSCOREl=SCOPEl*'LEV*100e •'■*■ 
C0RE2«SC0RE 1 : GOTO 1 306 

440 RETURN 

806 IFSCREEN.X,Y> = 127 THENX=X->;i : Y-Y-Yl 

805 IF>: 0RX>79 THENX=X-X1 : Y=Y-Y1 

816 IFSCREENO:,Y'- : 32 ANO SCREENCX, Y> . '• I 

27 THEN820ELSE RETURN 

829 L0CaTEX,Y:C0L0P3:PRINTGP*(62> 

825 PLAY"A2T2L4"!F0R AA=1 T05: AA*=-0-*RI 

GHTK.STRJ' AA>. 1 '■ :PLAYAA*. * C-ODOKPEPEUM 1 Fh 

Fm»S0SO«LALA#SI": LOCATE >:. Y: COLORAA! ATTR 

BI. HPRINTGRK62 .i:F0R AB=7 TO STEP-i: 

JCPEEN. .AB:NEXT:NEXT:VIE=VIE-l:ATTRB6.0 

378 IF VIE>0 THEN ON S GOTO 399.1300.166 
0.2190 

940 IF VIE=0 OP LEV=5 THEN CLS: SCREEN2, 
,6:BOX<0,0>-(319, 199) .4: ATTRB1, I : COLOR I : 
LCCHTE13- 10:PPINT-THE END" : LOCATE I 3, 12: C 
0LOR2: PRINT- ======= ":L0CATE38, 22, 0:ATTRB 

0. l:C0L0R6: LOCATE 17, 20 

541 IF S=2 THEN SCORE=SCOPEl 

842 IF S=3 THEN SCORE=SC0RE2 

843 IF S=4 THEN SC0RE-SC0RE3 

844 IF S=5 THEN SCORE=SC0RE4 

845 SCORE= INT. i ( SCORE+(TEHPS/110-LEV>>>« 
<LEV+VIE>>'100>: PRINT-SCORE: "SCORE: LOC AT 
E17,3:PRINT"LEVEL"LEV:ATTRB0,0:LOCATE10. 
22:PRINT-Une autre partie •>' : RP*= INPUT*- 
1 'UFRM^trTHENfcSEL&EEMD 

850 L=RNDi39:P=RND«2£ 

868 IF SCREENiL,P><>32 THENRETURN 

379 IF PND<<.2*LEV<'10>THEN PSET<L, P)GR*< 5 
j,2:PLAY*A3T303L7FA0£S0 - 

886 RETURN 

906 CLSMF R2=l THENL0CATE17.2: C0LOR1 : PR 
INT-PORTE":COLOR6:PRINT:PRINT-BUT:TROUVE 
R LE CODE DE 4 COULEURS AFIN D'OUVRIR L 
A PORTE ET DE PASSER. ":PRINT:PRINT*AFFIC 
HAGE:VOUS AFFICHERE2 LA COULEUR DESIREE 
EN TAPPANT SON INITIALE." 

901 IFP2=1THENPPINT:C0L0R3:PRINT-RE»AR0U 
E:"; :C0L0R6:PRINT'V0US N'AVEZ QUE 10 CHA 
NCES." 

902 IF R2=1THEN L0CATE2,22, 0:COLOR7: PRIN 
T-FRAPPEZ UNE TOUCHE POUR CONHENCEP. " : R* 
=INPUT«c 1 ):R2=0 

907 CLS:SCREEN2,6,7:BOXF(H8,20>-i206, 17 
9. ..-6: LINE< 112, 26)-' 96, 6), 7: LINE- 206, 20'- 
-'.228,0),7:LINE<112, I 79)-U82, 199), 7 = L1N 
E.206, 179>-<216, 199), 7 

908 LINE* 1 IE, 160)-t0.149).7:LINE(296, 189 
■-<319, 149), 7: LINE (85,0) -< 85, 199>. 7: LINE 
<233,6W233, 199), 7 

909 N=18:Z*10:V=18:LOCATE30,0:COLOR3:PRI 
NT-SCORE' 

910 FORI=lT04:L0CATEH,5,8:C0L0RI,6:PRINT 
GR*i8)!:W=H+i:NEXT 

>20 COLOR2.0:LOCATE18,7:PRINT*R* 
936 L0CATE19,7JPRINT"V 
940 L0CATE26,7:PRINT-J- 
950 L0CATE£1,7:PRINT-B" 
955 FQRI = lT04:H(I) = INT<RND»4.- + i:NEXT 
968 F0RI=18T0£l:C0LOR5,6:L0CATEI,2,8:PRI 
NTGR*<8):NEXT:PLAY"A1T505L1£RESID0*:SC0R 
E2=SCORE2-.LEV*50):LOCATE39. 1:COLOR3,0:P 
PIHTSCDRE2 
970 LOCATEV,2,0 
989 At=INKEYS 
1010 IFAS="THEN970 
1620 IFA*=-VTHENC0LOR2.6 
1030 IFA*=" J'THENC0L0R3,6 
1840 IFfll='B-THENC0L0R4,6 
1059 IFA*="R"THENC0LOR1.6 
1066 PRINTGRJ'8) 
1065 IFV=21THENG0?UB1166 

1070 IFZ=19ANDV=2 I THENFORI=1T04: LOCATE V- 
7.2i:C0L0RH(I),6:PRINTGR*c8);:V=V*i:NEXT 
:FOPI=1TO5000:NEXT:PLAY"A1T1O2L90FAA5L48 
Pr.'0PPC'0PPPDOPPPPD0":VIE = VIE-l:K = 9:GOTO13 
99 

167-> IFV=21THENV = 18:Z=Z+i:G0T0968 
1689 V=V+i:G0T0979 

1166 COLORe.5: IFPOINT. I8«8*4,Z«3+4>=H' 1 ■ 
hM:.P0INT>I9*8+4,2*8*4;'=H<2.ANDP0INT. 26i8 
*4.Z<8*4 •=H'3)ANDP0INT'21*8+4,Z*8*4'=H<4 
'THENL0CATE16. 2+1! PRINT -P*ssez' i -:F0RI=1 
T036ee:NE)TfPLAY"AIT1201L5FASOLrtS0SIPELA 
iCFH-:GOTO1200 

1110 £C=0: IFPOINT. l3i6+4.:«8*4 .=mm THEN 
7C=SC+1 
: 120 IFPOINT. 19*8+4, 2*3+4 .=M< 2 ,THENSC = SC 



<3>THENSC=SC 
.4>THENSC=5C 



+ 1 

1130 IFPOINT. 20*8+4.2*8+ 



!140 IFPOINT. 21*8 
+ 1 



2*8+4 ■: 



1150 LOCATE9.0! PS I NT "COULEURS " 

1153 L0CATE6, 1 : PR I NT"TROUVEEi " 

11S6 L0CATE4,Z:PPINTSC 

1160 FORI = 1TO1000:NE:-:T:PETURN 

1290 BOXF- 118.26 '-'260. 179 ■. -H60X' 112.: 

6 -. £96, 179', 7: BOX. 115,23)- 283, 176), 7*6 

C.;. 115,50--' 293, 159'-, 7SB0X' 115,79'-' 203. 

90 .7: BOX' 115, 110'-' 203. 130 '.7 

1213 BOX' 130,50:'-' 1S8. 150 - . 7: l INE' 166.50 



-■ 160, 150 >. 7: LINE' 145. 153 -■ 173.153 '.4: 

LINEU40, 1 66 )-< 178,166), 4: LINE' 145, 15? ■- 

■ 140, 166). 4: LINE '178. 166)-' 173. 153 .4: BC 

;;. 145, 153) -<1 73. 166 > , 4: FORI I = 1 TO3000:NEX 

T :SCORE2=SCORE2+'LEV*1908):GOTO 1389 

1788 CLS: IF R3=l THEN L0CATE14.2:C0L0R2: 

PPINTGR*. 9 >; :C0L0P1:PRINT*CYCL0PES";:C0L 

0P2: PRINTGR*' 9) :C0L0R6 : PRINT: PRINT "BUT: 5 

E RENDRE DEVANT LA PORTE VIOLETTE EN EV 

ITrtNT LES CYCLOPES. " :PRINT: PPINT"DEPLACE 

flENTS: - 

130! IF R3=1THENPRINT- ,,' POUR ALLER A & 

AUCHE.^PRINT".'. POUR rtLLER A DROITF..": 

PRINT'VA' POUR riONTER.":PPINT-^W POUR 

ESCENDR£.":PRINT:PRINT-ESPACE POUR S'ARR 

ETER." 

1392 IF R3=1THENPPINT:C0L0R3:PRINT"REH«^ 

QUE: "; :C0L0R6=PRINT-SI VOUS HANGEZ DES G 

N0PFS1EN JAUNE) VOUS GAGNERE2 DE L'ENERG 

IE. " 

1383 IF R3=lTHENL0CATE2,22,6:COL0R7:PRIN 

T-FRAPPEZ UNE TOUCHE POUP COMMENCER. " : R* 

= INPUT*' 1 ):R3=9 

1399 CLS!S=2:SCREEN2.0,0:P*=CHR*( 127): BO 

X.2,2)-(37,23>R*:B0Xt4,4)-'8,5)R*:B0>;. 18 

,4/-(17,5)R*:B0X.:i9,3)-'2e,5)R*:PSET(19. 

5 .P*:B0Xf2£,4)--29,5)R*:B0X. 31,4>-(35,5) 

R* : FORI = I T0VIE:C0L0R6: LOCATE 17*I,0f PR I NT 

GR*'6):NEXTI:C0L0R2 

1310 LINE'4,7)--8,7-.R*:B0XF' 10,7)-- 12, 11 

'R*: LINE (13, 9)-' 17, 9 )R*: LINE' 14,7)-' 25, 7 

.R*:BOXtt9,8)-(20.9)R*:PSETa9.9)R*:L!NE 

<22,9)-<26,9)R*:B0XF(27,7)-<29, 11>R*:LIN 

E' 31,7)-(35,7)R*MF K=9THEN SC0RE2=SC0RE 

1 

1320 B0XFi3,9)-<8. 1 1 )R»: LINE' 31, 8)-' 31,9 

)R*:LINE<33,9)-<36,9)R*:B0XF'14, ll)-(23, 

13)R*:B0XF(3, I3)-<8. 15)R*:B0XF( 10, I3)-U 

2, 15)R*:LINE(14. 15 '-^25. 15)R* 

1330 BOXF (27, 13)-' 29, 15 >R*: LINE' 33,9>-C3 

3, 11)R*:LINE(33, 1 1 )-<31 . 1 1 >R»: LINE<31 . 13 

--(33, 13)R*:LINE(33, 13)-<33, 15)R*:LINE<3 

3. 15)-<36, 15>RS:LINE(31, 15)- (31, 19)R*:B0 

X( 19, 16) -(29, I7)R*:PSETU9, 17 )R* 

1340 LINE(4,17)-(8,17>R*:LINEU0, 17>-(17 

, 17 )R*J LINE (22, 17) -.29, 17 )R(: LINE* 31, 17) 

--35,17>R*:LINE(8, 18)-(8, 19)R*:LINE'3,19 

'-(6, 19)R*:B0X(1B, 19)-<12,28)R*:LINE(4,2 

1 )-(17,21)R*:LINE(14, 19)-<25, I9)R* 

1349 B0X<19,28)-(26,21)R*:PSET(19,21 )R*: 
L INE (22, 21) -(35, 21 )R*: BOX (27, 19) -< 29, 20) 
R*:LINE(33,19>-<36,19)R*:C0L0R4:L0CATE35 
. 12:PRINTR*:BOXF'266,96)-(271,I03),5:LOC 
ATE 17,1 2: C0L0R8, 2: PRINT "LEVEL "LEV: COL0R2 
,0 

1350 IFK=lTHENB0XF.:266,96)-(271,193),-i: 
X=34:A*=*-:B*=--:K=0:COTO1360 

1751 FORI=1TO(5*LEV) 

1752 RS=INT(RND«35+2):SR=INT':RND*21+2):I 
F5CPEEN(RS,SR>O320R(SR=12AND RS=22)THEN 
1352 

1353 IF RS)33 AND RSt39 AND SR<15 AND SR 
9 THEN1352 

1354 C0LOR3:LOCATE PS, SR.0: PRINTGR*(7):N 
EXT 

1355 );=7:Y=12:XX=19:YY=6:rt=19:B=18 
1360 rt*=INKEY«: IFA*=""THENA*=B* 

1370 XI=(A*-", ">-'A*=-."):Yl='A*=-A')-(fl 
«=-W" >:B*=A* 

1786 L0CATEX,Y.8:PRINT" "iX=X+Xl ! Y=Y+Y1 : 
IF P0INT'X*8+4,Y»8+4,=£ ORPOINT. X«8+4, Y* 
5-4..=5 THEN X=X-X1 : Y=Y-YI 

1783 IF P0INT'X*8+4,Y*8*4)=1 0RP0INT(X*8 
•4,Y*8+4>=7 THEN SC0RE2=SC0PE 1 : GOTO800 

1784 IF P0INT.X»8*4,Y*8*4.. = 3 THENPLAY"A2 
T!05L4FAFARESILA-:SCORE2=SCORE2+'LEV*58) 

1785 L0CATE2, 1 : C 0L0R3 J PR I NT " SCORE: "SCORE 
2: LOCrtTE20,i: PR INT "TEMPS:" TEMPS :TEHPS=TE 
HPS-5 

1786 IFX=32ANDY=12THENK=i:C0L0P6:L0CATE3 
2. 1£:PRINTGR*C0. :PLAY"AIT1201L5FAS0LAS0S 
IRELASOFA":FORI=1TO300:NEXT:SCORE2=SCORE 
2*.LEV*lB08):GOSUB900:GOTOi30e 

1387 IFX=35ANDY=12THENCOL0R6,4:L0CATE35, 

I2:PRINTGR*i8):FORI=lTO3680:NEXT:GOTO16e 



1390 C0L0R6JL0CATEX, Y.9iPRINTCR*(0) 

1488 IF LI»6 AND XX<X THEN X2=+i:Y2=0 

1410 IF LI=9 AND XX>X THEN X2=-1=Y2=0 

1420 IF LI=1 AND YY'Y THEN Y2=-1:X2=9 

1438 IF LI=1 AND VY<Y THEN Y2=+I:X2=0 

1440 LOCATEXX,YY.0:PRINT* - : XX=XX+X£: YY= 

VY+Y2MF P0INT*XX«8 + 4,YY*8 + 4> = 2 ORPOINT( 

>:/:*8 + 4,YY*8 + 4)=5 0RP0INT(XX*8+4,YY»8+4> = 

3 THEN XX=XX— X2: YY=YY-Y2 

1450 IF P0INT(XX*8 + 4,YY*8 + 4:.=6 THEN SCOR 

£2=SCORE1.-GOTO860 

1460 COLORi:LOCATEx;-:.YY.0:PRINTGR*<9". 

1470 IF LI=1 AND AO; THEN A1=+I:B1=0 

1480 IF LI = 1 AND A>>; THEN A1 = -I:B1 = 

1490 IF LI=0 AND B'Y THEN B1=-1:A1=0 

1500 IF LI=0 AND BY THEN B1=+1:A1=B 

1510 LOCATEA,B,0:PR1NT- ": «=A+A1 :B=B*B1 : 

IF P0INT(A*8+4,B«8+4)=2 ORPOINT' A«8+4,B« 

;.4'=5 0RP0INT(A»8+4,B*8+4)=3 THEN A=A-A 

1520 IF P0INT'A*8+4,B*8+4)=6 THENSC0RE2= 

SCOREI:GOTO880 

1536 C0L0R7:L0CATEA,B.6:PRINTGR*'9' 

1546 IF LI=I THEN LI=0: G0T01 368 

1558 IF LI=0 THEN L I = 1 : GOTO1360 

1570 GOTOI360 

1600 CLS:SCREEN7,0.0: IF R4=l THENL0CATE1 

1.2!t0L0R2:PRINTGR*' 17 )S : COLOR! : PP INT "CH 

AUVE-S0URIS";:C0L0R2:PRINTGP*«17):C0L0R6 

:PPINT:PRINT'BUT:TUEP LES CHAUVE-S0UR1 S 

JUSOU'rt CE OU'UNE OUVERTURE APPARAISSE 

EN BAS A GAUCHE. " 
1^01 IF R4=1THEN PPINT:PR1NT"DEPLACEMENT 
S ET TIR:":PRINT:PPINT"AVANT LA CAGE:-",' 

POUR AVANCER. ":PRINT"ESPACE POUR S'ARRE 
TEP. ":PRINT:PRINT"DANS LA CAGE: JOYSTICK 
ET hCTION.* 

1663 IF R4=tTHENL0CATE2,22,9:C0L0R7:PRIN 
T'TPrtPPEZ UNE TOUCHE POUR COMflENCEP . * :R* 
=INPUT*. 1 >:R4=8 

1609 CLS:TI=LEV»200:S=3:R*=CHR*'127>:SCR 
EEN5.6,0:FORI=18TO2?:LOCATE38, MPRINTR*: 



LOCaTE37,I:PRINTR*:NEXT:FORI=28T023:LOCA 

TE36, I:PRINTR*:L0CATE35. I :PRINTR«: NEXT: F 

ORI=22T023:LOCATE34, I :PPINTRJ: L0CATE33, I 

:PPINTR*:NEXT:F0PI=eT017:L0CATE38, I: COLO 

P4:PRINTR*:NEXT 

1618 BOXt0,5)-(31,24>R*,5:COLOR6,5:LOCAT 

El,5:PRINT-LEVEL"LEV:C0L0R2,5:F0RI=lTOVI 

E:L0C«TEI*13,5:PRINTGK*<6):NEXT:COLOR5,8 

:L0CATE31, 23: PRINT" ": FORI =31T038: LOCATE 

1.24:PRINTR*;:NEXT:F0RI=I TO 2:AA(I)=i:G 

. I )=5:NEXT:SC0RE3=SC0RE£ 

1650 F0RI=9T017:C0L0R3,4:LOCATE38, 1,0:PR 

INTGR*(0):FORA=lTO20:NEXTA:LOCATE38,I,e: 

PRINT" -: NEXT: PLAY" AIT 101 L28D0PPD0" :L0CA 

TE38. 17,0:COLOR3,0:PRINTGR*<8):FORI=16TO 

6STEP-i:PSET(38, I '• " " : NEXT: X=38: Y=17:C0L 

OR 3 

1655 C0L0R6:L0CATE31,23:PRINTGR*( 

Y"A0T5O2L5SIDO":TE=i:GOSUB1660:COSUB1660 

:GOSUB1660:LOCATE3I,23:PRINT" ":TE=0:GOS 

UB 1 660: GOSUB 1668: GOSUB 1666: GOTO 1655 

1668 IF POINT'251. 189>=3 AND TE=I THEN 8 

1661 H«=INKEY*:IFA«=-"THENA*=B* 

1670 XI = (A*=*, *>:B*=A*'IF X+XD38 THEN X 

l"(M"',') 

1675 L0CATE8, 1 : C0L0R3: PRINT-SCORE: 'SCORE 

3:L0CATE18, 1 : PRINT'TEMPS: "TEMPS: TENPS=TE 

MPS-5 

1680 LOCATEX,Y,0:PRINT" ":X=X+X1:IF POIN 

T(X»8+4,(Y+l)»8+4);>5 THEN Y=Y+1 

1685 IFP0INT((X+l)«9*4,Y*8+4><.>5 AND PO 

INTiX*8 + 4,(Y+i>*8 + 4>0 5 ANDY> 17THENX=: 

XI 

1690 C0L0R3:L0CATEX.Y,8:PRINTGR*ie> 

1708 IFX«38ANDY=23THEN L0CATE31, 23: COLOR 

5:PRINTR*:GOT0 1726 

1718 RETURN 

1726 PS=RND»29+i:A=PS:B=6:G=5 

1740 P=RND*2!T=RND»2 

1756 LOCATEA,B,0:PRINT" * : IFRND) .5THEN P 

5-P 

1760 IF RND(.5THENT=-T 

1770 A=A+P:B=B+T: IFA( 3THENA=A-P 

1771 IFA>38THENA=A-P 

1772 IFB<6THENB=B-T 

1773 IFB>28THENB=B-T 
1788 COLORi:LOCATE«.B,0:PRINTGR*Ud 
1796 SI=STICK(1) 
1888 LOCATE0,l:COLOP3:PRINT"SCORE:"SCORE 
3: LOCATE 18,1: PRINT "TEMPS: "TEMPS: TEHPS = TE 
MPS-5 

IS03 LOCATEX,Y,0:PRINT- 
1395 IF SI=3 THEN X=X+1 
1810 IF SI=7 THEN X=X-1 
1813 IF X>29 THEN X=X-1 

1815 IF SI=3 AND SCREEN'X, Y)=127 THENX=X 
-1 

1816 IF SI=7 AND SCREENS, Y) = 127 THENX=X 

1317 IFX=8THEN PLAY-H0O5L46REFASIDOLARES 
t":LOCATE0,23!COLOP4:PRINTGR*<4e)+GP*<.41 
):FORI=1TO580:NEXT:3CORE3=SCORE3+'LEV*10 
06>:GOTO£160 

1820 C0L0R3: LOCATE):, Y,0:PPINTGR*'6' 
1825 C0L0R1'-L0CATEA,B,8:PRINTCR*( 15' 
1838 ST«STRIG(1) 

1846 IFST=-t THEN L INE i > X+l '■•8. 188)-' . X' 
1 .•8,49>,2:PLAY-A8T105L5S0SISISID0D0D0'i 
LINE'«X+D*8, 188 >-"X + l ••8,49), -i:SC0RE3 
=SC0R£3-(LEV*5) 
1850 IF ST = -1 AND SCREEN(X*1,8 >'- '< 127 AND 
SCREEN'** 1,B><>32 THENLOCATErt, B:PRINTGR 
*' 62i:F0RI=l TO4:PLAY"A0T 105L4D0D0tREPEi 
MIFAFAiSOSOiLALAISI":NEXT:L0CATEA,B:PRIN 
T" ":ZS=1:SCORE3 = SCOPE3 + .:lEV*50>:GOTO172 
8 
1853 IF ZS-1 THEN IF IPO THEN TI=TI-58: 

zs»e 

1855 L0CATE3f4:C0L0P3:ATTRB1, i:PRINTTI:A 
TTRB8.6 

1856 IFT1=8 THEN LOCaTEO, 23: PRINT " " 
1366 IF AA<1)=1 THEN U( 1 )=INT(RND*29>+1 : 
AA< I '=0 

1870 IF AA(2) = 1 THEN U(2) = INTi RND«29 - 1 ! 

AA(2)=6 

1896 C0L0Ri:L0CATEA,B:PRINTGR*U7) 

1980 FORI = I T02MF hAU,=6 THEN LOCATEU' 

1' G . I ■ 8: PRINT" 

1916 IFAA(I)=0 THEN G'I)=G'I)+2: IF G<I)= 

25THEN G<I)=5:AA(I'. = i:L0CATEU. I >, 5: COLOR 

5:PPINTR*:G0T0 1746 

1926 IFflfi<.I>=0 THEN P = P0INT..U':i)*8+4,G' I 

..*8+4):IF PO-] AND P<>1 AND P-/5 THEN88 

8 

1930 IF AM'I) = THEN LOCATEU' I ', G' I' , = C 

0L0R5:PRINTCHR*<127) 

1940 NEXTi:G0T01746 

2000 CLSlS-5iSCREEN5.6.8:AG=£:AH=37 

2010 F0RI=23T08STEP-3:AE=A&:AF=AH:FORJ=l 

TO 16:LINE'AE*e, 1*8- J)-(rtF*8+7, I*8-J>:A 
E=nE+. 1875:aF=AF-. I875:NEXTJ: AG=AG+3: AH= 
hA-7:NEXTI 

2920 BOX' 16, 199>-'704, 183>JBOX<0, 136)-' I 
6. l?9:.:B0Xf319. 136 .-'304. I99':F0RI=1T08: 
LINE' 126+I,64:.-<8+I.136):NEXT:F0RI=lT08: 
.INE' 126,64)-' 0+1, 136): NEXT 
2030 F0RI=1T08!LINE< 183+1 . 64 >-< 394* I , 136 

: NEXT: F0RI = 1T08:L INE' 191, 64 '-'31 1 + 1, 136 
■:NEXT 

£050 COLORI:FORJ=1TQ10:LOCaTE19,4:PRINTC 
R*'18):LOCATE20,4:PRINTGR*(19):LOCATE19, 
5:PPINTGP*\20):LOCaTE29.5:PRINTGR*(21):L 
Ol ATE 19. 6: PR I NTGR*' 22 .:L0CATE29. 6: PRINTG 
R*'23) 

2960 L0CATE21. 4: PPINTGR*' 24 > : L0CATE2 1 . 5: 
PRINTGR*'25..:l0CATE21,6:PRINTCR*(26):FOR 
1=1 TO100:NEXT:LOCATE21,4:PRINTGR«(27): 
0CATE21.5:PRINTGP*(23:':L0CATE21,6:PRINTG 
P*. 29): FOR 1=1 TO 190: NEXT: LOCATE 18, 4: PR INT 
&R*' 39)iL0CATE18,5:PRINTGR*'31 ):F0RI=1 T 
01 09: NEXT 

2679 LOCATE18.4:PR1NTGR*<32):LOCATE18,5: 
PPINTGR<(33':F0PI = 1 TO 188: NEXT: NEXT J 



2088 F0RI=24T 



f!P-l:LINE(0, I)-'40,I) 



A SUIVRE... 



SCRAMBLE 



Whaou I! C'est le cri de stupefaction que vous pousse- 
rez en decouvrant ce jeu genial. 

JANIN Jean-Marc 



Mode d emploi : 

Vous avez a voire disposition 7 touches commandes qui se reparlis- 
sent de maniere suivante : 

Dabord, il y a 2 touches de deplacement vertical. "4" pour monter et 
le "0" pour descendre. Vous pouvez frbler les parois de la caverne 
mais en aucun cas "superposer" les deux, sinon retour au basic : 
c'est 1'accident. 

Voire vaisseau est egalement muni dun double systeme de tir, le tir 
lateral commande par "E" et celui vertical a partir de "2", moins 
precis. Avec le tir on peut detruire le paysage ce qui sauve pariois 
mais est peu rentable car ne rapporte qu'un point et le stock de 
bombes s'epuise vite Pour parer a cette penurie de munitions, il 
faut s'approvisionner en detruisant un point de valeur 2 dans une 
colonne ou le point de valeur 1 nest pas allume. Je m'explique. la 
valeur que j'attribue a un point est la valeur que prend ce point 
lorsqu'on se sert de linstruction POINT dans la colonne correspon- 
dante. Dans le cas des munitions il s'agit done de liberer les enco- 
ches du haul. Le tir permet aussi de (aire le plein de carburant 
avant que le reservoir soit vide, sinon retour au basic... Pour faire ce 
plein. il suftit de detruire un point 32 dans une colonne ou le point 
64 nest pas allume. ce que jappelle liberer les encoches du bas 



'Mai 



Un petit true qui etait un defaut au programme mais se revele don- 
ner un Interet supplemental^ au jeu. i! s'agit de generer son propre 
carburant. mais oui des "erzatzt". si Ion peul detruire un point 64 
avant le point 32 juste au dessus A chaque point 2 ou 32 detruit qui 
vous rapporte munitions ou carburant vous obtenez en plus 20 
points. 

Les 3 dernieres commandes regulent la Vitesse. Pour la doubter, il 
vous faut appuyer sur "" et pour Immobiliser le vaisseau pressez le 
"8" On revient a la normale grace a la louche "9". A grande Vitesse 
comme la consommation est en fonction du temps, vous consom- 
mez moins pour la distance parcourue. c'est un peu lavance tech- 
nologique de lordinateur sur la realite. D autre pari, a cette Vitesse, 
vous parcourez plus de distance avant de subirlesdifterentes acce- 
lerations car ce jeu est evolutif 

Vous decouvrlrez egalement a gauche de votre ecran 3 lettres remi- 
ses a |our a chaque accident Le rang de ces lettres dans I alphabet 
vous indique respectivement dans queues centaines se trouve votre 
temps, votre distance et votre score 
Pour rentrer le programme faire NEW 

4340. tapez par la methode qui vous est la plus familiere le LM puis 
le basic. Si vous pouvez sauver vos programmes rentrer les lignes 40 
a 60 puis seulement JEF S Pour le charger a nouveau un NEW 
40C5 puis un CLOAD "SCRAMBLE" suffisent mais le jeu ne debu- 
tera qu'apres le deuxieme RUN. 

(Les codes machine a rentrer dans lordinateur a partir de 40C5 
Voila pour ce programme qui tient dans les 1850 octets de la ver- 
sion de base. AH! J'oubliais. quand il vous demandera la Vitesse de 
depart, essayez "1". c'est fulguranl. vous verrez ! !. 



PROGRAMME DE CHARG 
EI1ENT 

10:FOR 1=1658170 

17215 
20: INPUT K 
30: POKE 1,K 
40: NEXT 1 

CODES MACHINE 



41 



I 27 

I6l 38 

56 54 

44 54 

44 54 

55 

48 

58 48 44 
54 55 44 
54 52 13 
255 97 107 
255 104 113 

106 30 181 
2 10 97 
101 32 9? 

107 255 233 
123 6 

72 8 106 
63 107 96 
136 4 88 
1 90 1 
106 96 

96 103 98 
105 240 43 

97 110 76 
153 12 148 



46 20 42 
148 189 15 
142 1 217 

136 3 185 
15 1 06 77 
99 165 123 
6 183 3 

137 5 105 
14 98 105 
11 239 123 
6 255 131 
38 253 136 
253 152 190 
245 221 253 
26 253 10 
104 113 165 
123 4 191 

3 137 5 
82 129 10 
142 9 131 
2 137 5 
94 2 133 
1 80 233 
123 6 3 
106 83 109 

1 137 19 
148 237 123 

2 2 139 

1 213 237 
123 2 3 
137 4 251 
219 185 15 
24 111 1 
102 147 5 
66 153 120 
74 3 165 
113 86 106 



10 191 240 
139 2 241 
96 47 137 
34 66 137 
2 43 46 
165 113 86 
66 147 
174 



31? 

23 

if. 

:aj 

12 

37 



113 
106 89 
10 



165 113 
47 137 
7 66 129 
87 96 96 
156 10 10 
45 46 36 
78 2 10 
137 6 191 

1 139 20 
109 4 137 
18 106 92 
111 120 129 

2 1 07 255 
37 213 213 
185 126 223 
142 16 109 

1 137 28 
106 91 111 
15 109 32 
139 2 105 
32 37 217 
42 181 15 
98 107 96 
98 223 153 
7 106 85 
111 20 142 
4 106 85 



111 1 102 
147 5 181 
78 12 
145 100 174 
113 87 142 
6 43 46 
36 174 113 
88 106 6 
74 8 1 42 

2 106 10 
132 213 191 

240 139 2 

241 36 47 
139 1 154 
43 46 110 

8 145 20 
4 42 132 
64 64 78 
16 153 25 
106 92 111 

131 1 
37 213 
185 62 
10S 15 
37 
99 129 
HI 1 
10 37 142 

3 64 153 
3 221 167 
113 93 145 

9 165 113 
86 106 10 
191 240 139 
2 24 1 96 

45 46 165 
113 88 42 



255 

154 
213 
12 
I 06 
221 



165 113 87 
45 46 106 
6 74 8 
142 2 106 

10 132 213 
191 240 139 
2 241 36 

45 46 110 
8 145 16 
4 42 132 
64 64 78 

16 153 21 
142 181 
64 253 174 
240 12 253 
186 106 91 
191 64 137 

17 237 113 
86 255 137 

11 103 255 
139 7 111 
255 132 217 
174 113 86 
253 239 240 

12 208 253 
186 191 32 

34 237 
87 255 



Iflb 



13? 
113 

137 
255 

1 1 1 
106 
210 
211 
113 
174 
165 



28 ie 



133 

255 

12 

133 

36 

87 

113 

113 



21 
132 

131 
2 

121 
36 

au 

30 



174 113 
253 1 86 

90 191 4 
137 6 109 

1 137 2 
111 1 253 

239 240 12 
241 253 186 
191 4 137 

6 109 1 
137 2 111 
255 253 239 

240 12 127 
253 186 191 
4 137 3 

181 2 46 
253 239 248 
12 132 253 
186 191 2 
137 7 132 
191 2 137 

2 213 8 
253 186 191 
128 137 7 
132 191 64 
127 2 21? 

8 165 113 

91 251 219 
42 105 15 

96 105 
165 113 
10 253 
165 240 6 
106 88 103 
183 76 129 
2 105 
186 65 121 




36 
15 

30 



LISTING BASIC 

1:REH SCRAMBLE 
PC- 1500 

2; REM PLITEUR : 
J-n JAN1N 

7: RANDOM : 2=171 5 
0:A*="Ternps":B 
*="Distance":C 
»="Soore": 
INPUT "U1TESSE 
:"!D 

8:UftlT B:P0KE Z, 
8,8,0,0,0, 1 : IF 
D>990R D<0GOTO 
5 
10:POKE Z*13, D: 
CLS :F0R J=0TO 
3:GCURSOR 113: 
GPRINT "7A5525 
":CP4-L 140E7: 
GCURSOR 40: 
SPRINT "412214 
41222241142241 

15:BEEP 5,9,9:F0R 
I = 1T0 3:t(l)= 
PEEK <Z-2*2fI> 
*256*PEEK (Z-l 
»2*I>:IF i(I>> 
l(l*4)LET «(1* 
4)=i(I) 

18: PRINT CHR» <65 
♦«<l)/100)i" " 






;:NEXT 1:NEXT 
J: CLS 

20: FOR 1=1 TO 3: 
PRINT LEFT* (t 
»U>, 6-INT LOG 
•CI>>jt<l>!" " 
;:NEXT 1 

22: REM TOUCHES : 
RECORDS — > 1 
UITESSE — > 2 

JEU > 3 

FIN > 4 

25: ON URL INKEY» 
■UGOTO 25,30,7 
,8 

27) END 

30:FOR I=5T0 7: 
PAUSE "ME1LLEU 
R "jl*U-4>;i< 
I):NEXT I: GOTO 
25 

40S"S"RESTORE 652 
79: I=PEEK 3088 
6*256*PEEK 308 
87*3:J=1NT CI/ 
2S6ilt£5l-2S6tJ 

50:E*=STR» J*", "4 
CHR« (48*CK<18 
0>>*STR* K:FOR 
1=S7B5BT0 1*5: 
POKE 1-12154, 
PEEK ItNEXT 1 

60: POKE 17865,64, 

197, J, K, 64, 197 

:CSAUE "SCRAMS 

LE":END' 

55279: REP • 

I H &ii xs.\ g> 
' /too *£Ttes '-Sr'C. 

PN 40S=t<Wpes? 



CAR WAR 



[COHNN&1 



Poursuites infernalesa deconseillerauxpersonnessensi- 

bles au tournis. 



guilles d une montre et la voiture X07 en sens inverse Vous devez, 
a l aide de voire bolide, prendre les 16 points situes dans les 
angles. L'appui sur F6 demarre le jeu, vous mntervenez que pour 
, Rr .. |n| |CT effectuer un changement de piste en appuyant sur les fleches du 
ueraia bUUUUb I curseur (anticipez legerement votre action) 
Vous disposez de 3 engins et de 3 options. 
1 - Poursuite : la voiture X07 s'efforce de rejoindre votre piste 

Mode demploi : 2 - Semi-hasard : La moitie des decisions de la voiture ennemie esl 

Deux voitures evoluent dans un circuit de quatre pistes concentri- due au hasard. 

ques reliees entre-elles. Votre voiture tourne dans le sens des ai- 3 - Hasard : Displacements aleatoires de la voiture X07. 



CANON X07 




<ea4jj 



ws 



10 REM CANDN X-07 

20 REM BOUQUET G >CARWAR< 

30 CONSOLE, ,,0,1 

40 CLS 

50 FONT* < 224 >■ 

48,216, 12" 

60 FONT* (223)" M 24B, 248,64,236,252, 

124, 108, 192" 

70 F0NTSI226) -' 



124,0,220,252,2 



80 F0NT«I227) » 

, 160, 128, 192" 

90 LOCATE 1,0 

SENTE " 1 

100 LOCATE 7, 1 

110 



12,4,4, 20,28,20, 4, 1 
192, 128, 128, 160,224 

PR1NT-6 BOUQUET PRE 



PRINT"CARUAR" 
223:F0RA=2T03:F0RZ=3T04:L0CA 

te z,a:d-d+1: 

120 ppintchr«(d) ! :nextz,a 

130 d=223:fora=2t03:forz=15t016:lo 

CATE 2,A:D=D*l: 

140 PRINTCHR*(D) [ : NEXTZ , A : FORA= 1 TO 

50: F0R2=3000T04000STEP1000 

150 BEEPZ, 1 INEXTZ.A 

160 G0SUB1230 

180 REM MEMOIRES PERMANENTES 

200 DIMQt4,4) , DM 1 2 , 4 ) , PL (2, 41 



210 FONT*! 128)-=-l<HB4,kHFC,i(HB4 1 l.H3 

0, itH78,fcHFC,ltHFC, LH30" 

220 DATA15.65, 13.67, 11.69,9.71,19. 

65,21.67,23.69,25.71 

230 DATA 19. 61, 21. 39, 23. 57, 25. 55, 15 

.61, 13.59, 11.57,9.55 

240 REST0RE220 

250 F0RA-1T04:F0RZ«1T04:READW 

260 Q(A,Z)-W:NEXTZ,A 

270 DATA1.0, -1,0,0,1,0, -1 

280 REST0RE270 

290 F0RA-1T02:F0RZ=*1T04:READU 

300 DM(A,Z)-U:NEXTZ, A 

310 DATA-1,0, 1,0,0, -1,0, 1 

320 REST0RE310 

330 F0RA=1T02:F0RZ»1T04:READW 

340 DL(A,Z)=W:NEXTZ, A 

350 RM ( 1 ) =62. i:RMl2)=16.2:RM(3! -64 

. l:RM(4)-18.2 

360 RL i 1 i = B 4. 1:RL(4>~16.2:RL(3>-62 

. i:RL (2) "18- 2 

370 VII t=4:U(2)-i: V<3>«2!V(4>"3 

390 rem memoires variants 

410 c-2:stc=o:sc«o:e-i 

420 pm»i :nm«3: cm<i)=6 4:cmi2>=ii:pl 

-i :nl-3:f-o 



430 CL(l)-62:CL(2)"ll:STC-STC+SC:S 

C-0 

440 x-64: y-ii: xi »62: yi«ii:t«o:u-o 

460 REM DECORS 

490 REM PARTIE ACTIVE 

510 G0T01310 

320 IFSTRIGI1 (-0THEN520 

330 IFCLI (RL tPL) -INT tRL IPL) ) )#10)« 

INT (RL CPL) ) THEN660 

540 IFT"OTHENNN*0: G0T0580 

550 T-0 

560 IFT--1THENNN-PL-1 ! IFNN-OTHENNN 



570 IFT=1TMEN 



«PL+l: IFNN=5THENNN= 



580 CLll >*CL<1) +DLI 1 ,NN) *DL( 1,PL) 

590 CL<21«CL(2J *DL(2,NN) *DL(2,PLt 

600 IFF=OTHENPRESET (XI , Yl > 

610 IFPOINTCCL (U ,CL12> )--lTHENF=l 

ELSE F-0 

620 PSET(CLd) ,CL(2) I :X1»CL( 1) : Yl- 

CL121 

630 IFQ(V(PL> , NLI-CL(2) *CL (1) /100T 

HENPL=PL-1 : IFPL=0THENPL«4 

640 IFCL ( 1 J-CMI 1) ANDCL(2»-CM(2)THE 

Nino 



630 GOT0810 

660 lFJ=30RJ=4THENJ-7-J 

670 ONJGOT0740,6eO,740,680 

680 G-INT (RND( 1 1*3) 

690 IFG-0THEN080 

700 IFG-1THENIFNL< >4THEN720ELSE730 

710 IFNL< >1TMEN730ELSE720 

720 NL-NL*1 :T«1 : GOT0370 

730 NL»NL-i: T--1 IG0T0560 

740 IFNM-NLTHEN580 

750 IFNM>NLTHENT»1 : NL-NL+1 : G0T0570 

760 T--1 :NL-NL-1:G0T0560 

770 BEEP20,4:SC«SC-H : IFSC-16THEN1 1 

ZOELSERETURN 

790 REM JOUEUR 

810 IFCM( IRM(PM) -INT (RM(PM) I )*10>« 

INTIRM(PM) ) THEN930 

820 IFU=0THENMM=0: G0T0860 

830 U=0 

840 IFU=-lTHENMM-:PM-l: I FMM-OTHENMM 

■4 

850 IFU=1THENMM-PM+1: IFMM-5THENMM- 

1 

860 CM( 1 l-CM(l) *DM( 1 ,MM) +1JM( 1 ,PM) 

Suite page 22 



C'est nouveau, pa vient de sortir 



BIDOUILLE GRENOUILLE 



Chers amis, bonjour (applaudis- 
sements. 15 secondes) ! Eh 
bien, nous nous retrouvons 
comme d'habitude en ce ven- 
dredi midi, vous savez qu'au- 
jourd'hui les participants qui ont 
ete selectionnes tout au long de 
la semame vont enfin pouvoir 
savoir si ils ont gagne. nous 
sommes a Bretigny les Mer- 
coeurs, petite ville de I'Aude. 
cette ville est cinq fois cente- 
naire puisqu'elle tut tondee par 
un moine au XVeme siecle Les 
habitations ont garde le carac- 
tere ancestral herite de leur 
prestigieux passe et les habi- 
tants de cette charmante localite 
vont nous prouver leur chaleur 
en applaudissant bien fort nos 
candidats (applaudissements. 
siftlets, bravos, 30 secondes) l 
Vous connaissez la regie de 
notre jeu et je pense qu'il est 
inutile de la rappeller. Nous 
allons passer directement a la 
premiere question, qui est en- 
voyee par Monsieur Grenouille, 
de I'Ariege. attention, void cette 
question : que! est le nom 
commun de i'halskleedt 7 Je 
precise pour vous aider que ce 
terme est d'origtne moyen neer- 
landais. trente secondes, mon- 
sieur Youyou ? 

-C'est le corselet de fer battu qui 
forme la Jointure des parties 
avant et arriere dune armure. 
Je precise que pour copier 
Apple Cider Spider avec 
COPYA, il faut dabord changer 
les deux premiers octets de la 
piste 12 secteur 1 en 60 et AD 
Voila. 

-Bravo ! La deuxieme partie de 
la reponse etait inutile, mais 
c'est dautant plus meritoire ! On 
I'appaudit (applaudissements) ! 
Deuxieme question, de Madame 
Sleumeu de Bruges : monsieur 
Jean-Francois Fabre.qu'est-ce 
qu'un oidium ? Trente secondes. 
-C'est un champignon microsco- 
pique unicellulaire parasite dont 
une variete s'attaque a la vigne 
qu'il couvre d'une poussiere gri- 
satre. D'autre part, lorsqu on dis- 
pose dun Atmos, on peut reco- 
pier un programme en faisant 
POKE 26.96 POKE 

28.96 :CLOAD ". puis Reset, 
puis POKE 26,96. puis A= 
DEEK (681) :E= DEEK 

<683):CSAVE"xxx".AA,EE,AUTO. 
Cela marche dans la plupart 
des cas. 

-Bravo ! Decidement, nos candi- 
dats sont tres forts et je crois 
qu'on peut les applaudir (ap- 



plaudissements mous) ! Troi- 
sieme question, de monsieur 
Tony Chacal. de International 
Software Cracker : comment ac- 
cede-t-on au dernier programme 
du Diamant de ITIe maudite sur 
Oric, monsieur Philippe Ribou- 
leau ? 

-Ecoutez. c'est Ires simple, il 
suffit de taire POKE 22790,10 
puis CLOAD "F". Mais je precise 
que grace a Fabien Chimisanas. 
je suis en mesure de vous don- 
ner la seconde partie : 
Gauche, prendre corde. droite, 
appuie oeil, avance. demi-tour, 
prends casque, mets casque, 
gauche, avance, droite, avance. 




avance, avance, avance. droite. 
prends sabre, demi-tour. prends 
ma ilea u, gauche, avance. 
avance. avance. avance. droite, 
brise grille, pose casque, pose 
sabre, pose corde, avance. 
avance, droite. appuie oeil. 
avance, avance. avance, droite, 
prends seau, droite. avance. 
avance. avance. gauche, 
avance, avance, demi-tour, 
prends corde. prends casque, 
mets casque, prends sabre, 
avance, gauche, avance, 
avance. gauche, attache seau, 
descends seau. remonte seau. 
bois eau, gauche, avance. 
avance, gauche, avance, droite, 
avance, avance, avance, lance 
sabre, demi-tour. avance, 
avance, avance. gauche, 
avance. prends sabre, demi- 
tour, avance. droite, avance, 
avance. avance, avance. droite. 



interroge sage, demi-tour. ouvre 
porte. avance. droite, decapite 
dragon, droite, avance, avance. 
gauche, pose corde, pose seau. 
pose casque, prends diamant, 
gauche, avance, gauche. 
avance, avance. avance. 
avance, gauche. avance, 
avance, avance. avance. 
avance, droite. prends jerrican, 
droite, avance, avance, avance. 
droite. avance, avance, avance. 
avance, avance. droite. fais 
plein. demi-tour, appuie bouton, 
demi-tour. monte helico, decode 
-Excellent (applaudissements 
douteux) ! Vous etes vraiment 
formidables, je n'en reviens 
pas ! Apres un tel exploit, je 
vous laisse souffler cinq minutes 
le temps de passer une page de 
publicite. 

■Oh when the saints, oh when 
the saints go marchin' in, I 
wanna be in that number, c etait 
vingt secondes de musique of- 
fertes par Muy de Subtril 
Woooaaahhhhhhh. 
wwwwooooaaahhh, dou dou bi 
douuuu, shabada. je reste 
geune. shouwoua, grace a 
Creme de Nuit. dou bi dou. 
-Eh bien, nous nous retrouvons 
pour la question suivante, elle 
est un peu plus complexe. elle 
vient de monsieur Buck the 
Crackman de Lille : qu'est-ce 
qu'un Syrphe. monsieur Polo ? 
-C'est un genre dinsecte dyp- 
tere, aux antennes courtes. a 
abdomen jaune et noir et au vol 
rapide 

-Euh... Oui. c'est bien cela (ap- 
plaudissements fatigues). Rien 
d autre ? 

-Ah ben si vous voulez que j'en 
rajoute, pas de probleme. Sur 
Spectrum, les codes des ecrans 
de Wheelie sont : 2. WITTY. 3, 
SHARK, 4. BEBOP. 5, XENON, 
6. ZX83B. 7, 2MLQ3. 8, 
HRME2. Sur Zzoom, POKE 
25131.x pour x vies. Sabre Wulf. 
POKE 39702.30 pour eliminer 
les monstres et POKE 39393.0 
pour tout eliminer. Pyramid, 
POKE 44685.0 pour energie infi- 
me. Arcadia, POKE 25776.0 
pour nombre de vies infini 
Freez bees, POKE 34610.0 pour 
nombre de vies infini. Pi-balled, 
POKE 44416.5 pour nombre de 
vies infini. 

-Tres bien. stop, bravo, 
stooooop ! C'est tres bien. vous 
avez amplement repondu. Je 
dois vous avouer que jamais ie 
n'ai eu de candidats aussi bril- 
lants. cela merite quelques ap- 



plaudissements (applaudisse- 
ments epars) ! Passons 
immedialemenl a la question 
suivante, car le match semble 
etre serre. Question de madame 
Broultz de Lausanne : comment 
obtient-on 255 vies sur Ultra 
pour Oric, monsieur Erik Gri- 
courl ? 

-Des que le programme est 
charge, faire POKE* 6B4.# 
39 :CALL# 5BD Je precise que 
I'hypotonie est I'etat dun liquide 
ou dune solution dont la tension 
osmotique est infeneure a celle 
d'un liquide de reference. L'an- 
tonyme de ce mot est. bien en- 
tendu, hypertonic. 
-Merci et bravo • On I'applaudit 
(les spectateurs commencent a 
quitter la salle) ' Depechons- 
nous, question suivante de Mon- 
sieur Thierry Vandenbroucke : 
quelle est la solution complete 
du Sceptre d'Anubis sur Oric. 
monsieur Gulis ? 
-Euh, eh bien, voyons, euh... (si- 
lence) je ne sais pas. 
-Vous avez perdu (applaudisse- 
ments nourris. la foule est en 
delire, les femmes s'evanouis- 
sent. les enfants pleurent) ! De- 
sole pour vous. nous nous quit- 
tons done sur cette defaite. vous 
nemportez aucun jeu, aucune 
place de cinema, pas d'argent, 
nen, vous etes nul et votre 
echec est si eclatant qu'il 
eclipse les reussites des candi- 
dats qui etaient avant vous qui 
du coup ne gagnent rien non 
plus A demain. si je le veux 
bien ' Et mamtenant. une page 
de pub ! 

-Aaaah, doub doub doub doub... 
Pour garder voire teint de jeune 
tille. n'hesitez pas a appeler le 
144 000 440 mot de passe DRT 
oulel59 00l 115 mot de passe 
DEMO ou VECT Attention ! Ne 
ratez pas la grande quinzaine 
Super Plus a Carritamouth ! 
Pour de plus amples renseigne- 
ments. appellez te 167 000 801 
et tapez suite. Sweet Crackers 
Rennes, c'est I'endroit ideal pour 
trouver toul ce dont vous avez 
besoin ! Appellez VSB01 , mots 
de passe CRY102 ou CRYSTEL 
et exigez la signature Sweet 
Crackers Rennes ! Envie de 
voyages ? Rien de plus simple I 
Voyagel vous attend au 336 80 
50 pour les pansiens. ou par 
VGL sur le 614 91 66 ! Envoi de 
brochures, choix de la tranche 
de prix. geant ! Radiooooooo 
moms C'est la plus bizarre des 
radios. Dou da dou da... 



DES NOUVELLES DE CLIVE 



Sir Clive Sinclair nest pas 
mort, II parle encore Et que 
dit-il, ce brave homme ? 
Contrairement aux rumeurs qui 
ont couru. la fabrication du ZX 
81 continuera en 1985 D'atl- 
leurs. il nest pas prevu que 
cette fabrication s'arrete. a litre 
officieux, il y en aurait 9000 
dans les ecoles francaises. 
Direco a ('intention de proposer 
un reajustement du Spectrum 
en Spectrum plus pour un prix 
superieur a 300 francs A 
priori, pas de kit "taites-le 
vous-meme", comme il y en a 
en Angleterre. 

La version franchise du QL 
sera presentee au plus lard au 
Sicob de prmtemps. Pour evi- 
ter les importations parallels, 
les logiciels anglais tourneront 
sur la version francaise mais 
les logiciels francais ne tourne- 
ront pas sur la version an- 
glaise. Ouh. la sale bete, elle a 
3u poil aux pattes Prix prevu : 
6700 francs. 

Une souris est prevue pour 
cette annee, mais Sir Clive 
sobstine a ne pas vouloir im- 
planter le Gem de Digital Re- 
search sur le OL Par contre, 
on devrait voir apparaflie un 
emuiateur Minitel parmi les 
premieres applications De 
jeux d'arcade ? Point, le fleg- 
matique Lord preferant donner 
un aspect serieux a sa ma- 
chine. 

La politique de Sinclair semble 
plus onentee vers 1'intormati- 
que qu autre chose DaiHeurs, 
il ne croit pas en la C5 sa voi- 
ture a pedale. puisqu il route 



en Porsche. Et il n'a pas I'm- 
tention de commercialiser sa 
tele plate en France Relour 
aux sources, ies nouveaux 
produits seront lies aux ordina- 
teurs et la caracteristique prin- 
cipal des prochains produits 
devrait etre la compatibility 
avec ceux exietants deja 




En Angleterre, 21% des mena- 
ges sont equipes en mformati- 
que. Ce marche potentiel 
enorme explique les mvestis- 
sements colossaux de Sir 
Clive 50 millions de livres se- 
ront depenses pour lusine de 
Wafer Scale (la memoire de 
masse a haute integration sur 
laquelle Sinclair travaille en ce 
moment). 

Restons avec Sinclair mais 
cette fois sans Clive : Quest a 
annonce une extension Ram 
de 512 Ko pour le courant de 
lannee et la CGCT. Timex et 
Matra se battent pour avoir les 
droits de fabrication du Spec- 
trum La CGCT fabrtque deia 
I'Exelvision, Timex les lecteurs 
Jasmin pour Oric et Malra ies 
Alice 32 et 90. 



EINSTEIN ATTAQUE 
AMSTRAD 



Tatung. le constructeur an- 
glais, vient d'annoncer officieu- 
sement (j'te I'dis. mais tu dis 
pas que est moi qui t la dit) 
I'arnvee prochaine de deux 
nouveaux modeles d'Einstein. 
Le premier s'appelle Micro 
Einstein, serait compatible 
avec lEinstem existant (ce qui 
est important, vous lallez voir) 
aurait un clavier detachable qui 
ne ferait pas dzouing dzouing. 
aurait un moniteur couleur et 
serait presente bient6t. Reac- 
tion de limportaleuf francais il 
est hors de question de le pre- 
senter tant que nous n'en 
aurons pas suffisament en 
stock pour assurer les ventes. 
done pas avant Septembre 

I 




Toutefois. il sera probablement 
vendu aux alentours de 5000 
francs, ce qui le place en 
concurrent direct de I'Amstrad 
meme compatibilite CP M, 
basic aussi performant (celui 
de I'Amstrad est genial, mais 
I Einstein benef'cie du BBC 
Basic genial lu> aussi). 80 co- 
lonnes, meme lecteur de dis- 
quettes, tous deux vendus 
avec un moniteur couleur 



Deuxieme modele : cette fois, 
c'est a la pomme quon s'atta- 
que. puisque pour moms dune 
bnque (10.000 francs, bonne 
idee) il proposera outre le mo- 
niteur. deux lecteurs de dis- 
quettes integres. la carte 80 
colonnes residente. encore 
plus de ports d extension que 
I Einstem, la compatibilite avec 
celui-ci et la logitheque CP.M 
Plus, pendant que j'y pense, 
des logiciels fournis : Infostar, 
Infocalc et Wordstar, le tout 
sous reserves 

A propos de logitheque, dans 
notre banc d'essai sur lEins- 
tem nous regrettions labsence 
de logiciels Plus rien a regret- 
ter : Tatung vient de signer 
avec Infocom (le plus celebre 
editeur americain de jeux 
d'aventure) pour Zork, Dead 
line et Suspended entre 
autres. avec PSI pour Les 
Flics (deja disponible pour 
MSX), avec Adventure Interna- 
tional pour tous les ieux de 
Scott Adams, avec US Gold 
pour une bonne partie de son 
catalogue, ;*vec Ocean, Activi- 
sion, Anirog (Flight Path 737) 
et Software Proiects pour 
Manic Miner et Jet Set Willy, 
pas moins. 

Tatung a la ferme intention de 
simplanter aux Etats-Ums. ou 
il nest pour linstant connu que 
pour ses termmaux Amstrad 
suivra-t-il 7 



L'ERE DE L' AMSTRAD 




Les frangais sy mettent et 
bien : I'adaptation des meil- 
leurs titres de Cobrasotl sur ce 
micro n'aura devance celle d' 
Ere Informatique que de quel- 
ques jours. Vous vous souve- 
nez peut-etre de Macadam 
Bumper, editeur de flipper sur 
One. Des aujourd'hui. vous 
pouvez en trouver la version 
Amstrad et pour votre plus 
grande joie constater que c'est 
la meilleure version jamais rea- 
lisee de ce logiciel Les gra- 
phemes sont naturellement su- 
perieurs. mais la qualite de 
programmation convie a jouer 
et rejouer Bien entendu tous 



les parametres sont modifia- 
bles a volonte (inclinaison, 
sensibilite du tilt, obtention du 
double bonus, de I'extra- 
baile i et lorsque vous serez 
lasse du flipper livre avec le 
programme, vous pourrez 
creer les vdtres, les sauvegar- 
der et les recharger a partir du 
lecteur de cassettes- Dernier et 
fabuleux gag de programma- 
tion : lorsque vous bourrez le 
Hip, celui-ci bouge eftective- 
ment a lecran. Une premiere 
dans la simulation de ce sport 
national qui merite d'etre adop- 
tee par la concurrence. 



LES REVERS DE LA PUB 



II y a de cela quinze jours, IBM 
frappait un grand coup dans le 
domaine de la publicite. Big 
Blue avait choisi Le Point pour 
placer son encart une double 
page contenant une puce mu- 
sicale. "Ouvrez-bien les yeux, 
vous n'allez pas en croire vos 
oreilles" Effectivement. si Ton 
entrebaillait le prospectus, un 
IBM PC se mettait a clignoter 
sur lair de "Mon Beau Sapin", 
Tres grop coup de pub, dont 
Le Point a largement beneficie, 
ca leur fait pas de mal 
Maintenant, le revers comique 
de la medaille : 15 jours apres 
manipulation , la pile de la 
carte musicale commence a 
battre de laile. Moralite. cha- 
que fois que j'ouvre mon petit 



encart pubheitaire pour (aire 
une demo aux copains, la mu- 
sique deraille completement, 
ca joue faux, les lumieres 




tremblottent Reaction una- 
nime : "Ben dis-donc. c'est pas 
vraiment tiable I'lBM PC !!". 
Gag. Pub. 



TOUT BAIGNE DANS L'HUILE 



Puisqu on vous dit que I infor- 
matique est un marche porteur 

Q> 




d emplois ' Pourquoi s obstmer 
a ne pas nous croire 9 D'ail- 
leurs le gouvernement lui- 
meme se saigne aux quatre 
vemes pour acheter des 
micros a nos enfants. Une par- 
tie de ces micros sera 
commandee a la societe Bull- 
Grace a ces machines, de 
nouveaux informaticiens vont 
etre formes. Parallelement, la 
meme societe Bull a annonce 
cette semame quelle confir- 
mait la suppression de 756 
emplois sur pres de 900 
prevus Pas de problemes. 
L'informatique. ca baigne dans 
I'huile ' 



LA GUERRE A DOMICILE 



Preparez-vous a accueillir les 
rouges dans votre foyer ! Ils 
arnvent par le biais de la nou- 
velle production de PSS 
Theatre Europe L'action est 
simple, ie decor rapidemeni 
mis en place grace a un telex 
percutanl dont je vous donne 
le texle en exclusivite et en 
avant-premiere : 
Intervention massive des USA 
en Syne 

Bonn desire la reunification 
des deux atlemagnes.. 
LOTAN mobilise en RFA... 
Les tanks russes franchissent 
la frontiere RDA-RFA. 
Vous voyez I ambiance et vous 
vous devez de renvoyer tous 
ces mfames cocos dans leur 
frigo ^abituel. A moms que 
votre tendance politique vous 
fasse choisir le camp de Ten- 
vahisseur ' Mais de toutes les 
facons le soft vous laisse le 
cnou ae votre camp, alors 
bonne guerre 




Le logioei sort tres bientdt 
pour Commodore (160 fr en 
disk et 120 en K7), dans pas 
longtemps pour Spectrum et 
dans a peine moins de temps 
pour Amstrad. 



C'est nouveau, $a vient de sortir 



NE CONFONDEZ PAS 
DUREX ET DURELL 



La gamme aclueiie de la so- 
ciete anglaise Durell Software 
comporte plus de bonnes sur- 
prises que de mauvaises Mal- 
gre lout une rapide observation 
du catalogue donne a reflechir 
sur la validile des hit-parades 
anglais 

Ainsi Harrier Anack jouit 

dune reputation sans faille, 
mais a la pratique on saper- 
coit rapidement de la nullite to- 
tals de ce logiciel. digne 
d' un bebe insomniaque el 
programmer de surcroii. Les 
possesseurs de Spectrum, 
Amstrad. Commodore 64 ou 
d'Onc feraienl mieux de s'abs- 
tenir ou de se replier vers 
d'autres realisations de cette 
societe. 

Combat Lynx qui. par exem- 
ple, vous emmene a I assaut 
de positions ennemies a bord 
dun helicoptere Lynx (inat- 
tendu. nest-ce pas ?). La si- 
mulation de vol en helico est 
quasiment parlaite. vous en- 
trainant dans des decors en 
trois dimensions particuliere- 
ment soignes Voila pour les 
Spectrumistes. Cbmistes et 



hauteur et la lenteur du jeu en 
font un logioei rapidement las- 




Enfin un sofl reserve exciusi- 
vement au Commodore 64. 
Shades forme le fer de lance 
du Beau Jeu dans le catalogue 
de Durell- En effet. la qualite 
graphique de ce programme 
n'a ete que rarement egafee 
sur ce micro. Enfin un jeu 
d'aventure en trois dimensions 
pour un a quatre Joueurs qui 
vaul le coup d'oed ' 




M IHM pas 'mi pour toul 
le monde Death Pit. pour 
Amstrad. Commodore et Spec- 
trum (encore, eh oui. mais 
pour Oric, couic !) melange 
agreablement les meilleurs as- 
pects de I aventure et de I'ar- 
cade. Malheureusement, les 
graphismes pas toujours a la 



N'oubhez done pas la grande 
recommandalion de la se- 
mame ; ne vous fiez pas aux 
gouts des anglais, ils sont bi- 
zarres.. 



RIONS UN PEU 



Enterprise (la compagnie an- 
glaise, ne blamons pas Lan- 
say. son distributeur frangais) 
a annonce son intention d 'avoir 
10% du marche informatique 
anglais avanl la fin de I'annee. 
Cela represente 200.000 ma- 
chines. No comment. 




ORIC'HOCHET 



Affaire One, report n" 6374351 
bis. 

Rien n'est encore fait. Les pro- 
tagonistes francais de ce feuil- 
leton, a ma droite Denis Taieb, 
ex-presidenl d'Onc France, a 
ma gauche Jean-Claude Talar. 
directeur de Eureka informati- 
que ne saveni toujours pas qui 
va reussir a racheter Oric An- 
gleterre. Une ultime reunion, la 
324447eme reunion finale et 
definitive de I'annee. doit avoir 
lieu cette semaine pour que le 
cercle des creanciers puisse 
juger sur pieces quelle est I'of- 
fre la plus interessante des 
deux qui lui sont proposees 
Des problemes juridiques sem- 
blent se poser pour la pro- 
priety des noms Oric. Atmos et 
Stratos. Apparement, personne 
ne sait si ces noms sont depo- 
ses, oil. par qui et qui a le 
droit de les utiliser. 
Une forme de lassitude gene- 
rale est en tram de s'mstaller 
autant en France qu'en Angle- 
terre il y a deja quatre mois 
que les pourparlers sont en 
cours et nen n'mdique un de- 
nouement proche 



Jean-Claude Talar estime avoir 
des chances de remporter le 
morceau. mais Denis Taieb en 
doute forlement le premier 
n'a pas I infrastructure suffi- 
sante pour la vente aux reven- 
deurs et n'a pas le milliard an- 
cien necessaire au lancement 
d'une nouvelle machine {le 
Stratos) Aucun commentaire 
la-dessus. 

/Twvpoitii (* ma«whe) 




Incertitude : c'est le mol qui re- 
vient chez nos deux comperes 
Alors. vous vous magnez le 
tram c'est le mot qui revient 
chez moi 



VOUS V0ULEZ PAS NOUS D0NNER 
UN COUP DE MAIN ? 



He les mecs " Magnez-vous 
c'est par la. on a un copain 
quest vachement dans la 
merde Eh bien une fois de 
plus, noubhez pas ce slo- 
gan : Touche pas a mon pole 




Le Dole en question s appelle 
le MIR et c est un petit robot 
d inspection qui est coince 
depuis fin mars enlre deux 
cuves de sodium liquide du 
surgenerateur de Creys-Mal- 
vilie Le MIR selail giisse la 
pour mspecler les parois des 
cuves. mais au moment de le 
remonter. le treuil a deconne 
et le charmant petil robot s est 
retame la tronche sur une hau- 
teur de vmgl metres Faudrait 
descendre le chercner, mais 
pour cela il taut passer dans 
un couloir de 70 centimetres 
de large ou la lemperature 
avoisme les 130 degres Que 
les volontaires fassent un pas 
en avanl 



CA BALANCE POUR GRAPHISCOP 




Vous vous souvenez sans 
aucun doule du petit essai 
consacre a la tablette graphi- 
que Graphiscop. Le principe si 
original nous avait fait craquer 
complement ; un joystick la 



tete en bas permettait de se 
promener sur toute la tablette 
sans jamais perdre ni le nord 
ni le til. Aujourd'hui. de nouvei- 
les versions de eel appareil 
sont annoncees : apres Apple, 
Commodore, Oric et compa- 
gnie. c'est le tour de I'Amstrad. 
du Lansay (Enterprise), du 
M05. du T07 70 et de HBM 
PC (en deux versions pour ce 
dernier) de s'equiper. Bienve- 
nue au club les petits nou- 
veaux I 



NOUS SOMMES TOUS DES 
ECRIVAINS 



Un projel de loi visant a prole* 
ger les loqiciels a ete adople 
Jeudi 4 Avnl au Senat. Un pro- 
gramme informatique esl de- 
sormais considere comme une 
creation de I esprit a part en- 
tiere. comme le sont la littera- 
lure, la musique ou limage Un 
logiciel appartient desormais a 
I entreprise employant I auteur. 
ce dernier n'ayant pour tous 
droits que lautonsation de 
mentionner son nom sur le 
programme en question il 
n est meme pas propnetaire de 
son travail. Selon les termes 
de ce projet de toi. toute repro- 
duction de loeuvre protegee a 
plus d'un exemplaire devrait 
etre sanclionnee et ce durant 
les 25 ans suivant la creation 
Reste une etape a franchir . ce 
texle doit etre soumis a lap- 
probation de lassemblee natio- 
nale. 

Puisque nous lavions mter- 
viewe sur ce sujet. nous avons 
demande sa reaction au sena- 
teur-maire de Metz. Jean- 
Marie Rausch : "Cette loi est 
tiree par les cheveux, mais le 
legislateur ne peut pas prevoir 
chaque nuance. En 1979. Nor- 
bert Segard avait ete nomme 
president de la commission du 
suivi de I'informatique pour 
trouver la formule de loi qui se- 
rait la plus adaptee. mais sa 
mission a pns fin en Mai 1981. 



Je pense que la solution qui a 
ete choisie est un pis-aller : ce 
n est ni la meilleure. ni la pire. 
De toutes facons, il faudra tres 
rapidemenl en venir a une le- 
gislation beaucoup plus pre- 
cise. A mon avis, te delai de 
25ans est peul-etre un peu long." 



l£5 l^6iCiE L $SERJc«WT 




Amusant. Jack Lang deman- 

dait un delai de protection de 

50 ans. arguant du fait que 

cette duree est de 100 ans aux 

Etats-Unis. 

Reste I'Assemblee Nationale... 



CETTE SEMAINE MONSIEUR HEBDO A ... 



.VU pour vous la pubiicne te 
levisee pour I Apricot lordina- 
teur d'ACT Le debut esl formi- 
dable, avec une qualite 
d'image oscillant enlre celle de 
Terry Gilliam el celle de Ste 
ven Spielberg, une musique 
planante. toul ce qu it taut pour 
mettre dans (ambiance Des 
druides avancent en proces- 
sion pour la cueillette du gui. 
enloures de fumee au milieu 
d'abrupts rochers Des que le 
heros (tete de druide chebran. 
ca choque quand meme un 
peu) commence a parler. ca se 
gate II a toul sauf une voix de 
druide. A ceux qui pensent que 
les druides sont des hommes 
comme les autres et qu ils 
peuvenl avoir nimporte quelle 
voix. je dis non : pas en pub 
Des images aussi counes doi- 
vent avoir un impact mstantane 
et repondre a des archetypes 
precis En loccurence est-ce 
que vous imaginez Panoramix 
avec une voix flutee ? El des 
que le micro apparait a 
limage. ca devienl carrement 
nul. Les effets speciaux sont 
ringards el le lexte est incom- 
prehensible Si on nest pas 
branche jusquau bout des 
neurones Avec un budget 
comme ca. ils ne pouvaient 
pas se payer un vrai realisa- 
teur ? 

TESTE pour vous la nouvelle 
imprimanle graphique thermi- 
que Epson P40V. Elle est des- 
tinee a etre conneclee a un 
minitel par la prise pen-mfor- 
matique. bien qu elle puisse 
etre rehee a n importe quel or- 
dinateur a I aide dune prise 



ter le debut dune page a im- 
pnmer, limprimante se sert du 
caractere d'effacement 

decran. considerant qu'il s'agit 
d une nouvelle page Elle vide 
done le buffer, mais lors de 
certames applications (par 
exemple les forums en direct) 
elle ne peut supporter plus de 
2046 caracteres. puisqu'il ny a 
lamais d'effacement. 
Autre probleme : limpression 
d une page prend une minule. 
ce qui est considerable dans 
des conditions de travail nor- 
males. 

En fail. |'ai omis un autre pro- 
bleme, beaucoup plus crucial ; 
elle vaut pres de 2000 francs. 
Touiours aussi juteux, le mar- 
che teiemalique 



lis ne comprendront done ja- 
mais 7 Freedom and peace for 



ETE SURPRIS (mais pas 
trop) en apprenant que faction 
de Commodore sur le marche 
boursier americain etail passee 
de 20 a 10 dollars en six mois. 
Bourn ? Bourn 1 EI en passanl, 
Taction Sinclair en Grande-Bre- 
tagne s'est effondree de moi- 
tie. mais en deux ans seule- 
menl. Moins dure esl la 
chute... 

.. OUBLIE, dans le paragraphe 
ci-dessus. de dire que t'implan- 
tation du OL de Sinclair aux 
USA etail repoussee |usqu en 





TREMBLE en voyani le dos- 
sier de presse d'Alan distnbue 
a Hanovre : regardez cette 

homme. a quelques lettres 
pies il est Fiihrer 



Elte possede ur certain nom 
bre d options mteressantes 
elle est autonome (6 heuresi 
grace a une battene rechar 
geabie incorporee. elle peul 
imprimer en noir el blanc ou 
avec sept nuances de gns et 
en po5itil ou en negalif Elle esl 
aussi dolee dun butter de 2 
Ko permellanl d impnmer une 
page alors que le iravail sur 
minitel continue 

Deux problemes se posent lors 
de son utilisation pour detec 




BONDl lei le lion en saper- 
cevanl que le premier 128 Ko 
de I'annee ne serail pas I' Atari, 
ni le Commodore, ni un Sin- 
clair, mais I'Enlerprise La ver- 
sion 128 Ko esl prevue pour le 
mois de juin en Grande-Breta- 
gne. Pour la version 64 Ko. il 
existe deja une farammeuse 
logilheque ne comprenant pas 
moms de 12 litres De quoi se 
regaler pendant de longues mi- 
nutes 

TROUVE que I idee de Fire- 
bird de lancer une gamme des 
plus mauvais logiciels du 
monde etail geniale lis vien- 
nenl de sortir le premier vo- 
lume, conslitue des cinq plus 
mauvais programmes qu on 
leur ait jamais proposes Ms 
sont tellemeni nu's que cela 
devienl drble Heureusemenl. 



nous garantissons lanonymat 
aux programmers". Ceci dit, 
cest pas cher : 30 balles pour 
jouer avec "les as du volant", 
"Fido 1", "Fido 2". "Willy la be- 
lette" et "Jack-pot" Le coftrel 
s'appelle "N'achetez pas ceci" 
et est destine uniquement au 
Speclrum. 

SHKLAPFIZE (que pouvail-il 
faire d'autre ?) en apprenant 
que le Dragon 200 (le Dragon 
64 remanie. avec un meilleur 
lecleur de disquettes et des 
minuscules accentuees et non 
pas avec 128 Ko comme nous 
I'avions annonce) serait vendu 
en Anglelerre et que Eurohard, 
la compagnie espagnole qui le 
fabrique desormais. sappretail 
a lancer un lecleur de disquet- 
tes Quick Disk de 2.6 pouces 
d'une capacite de 51 Ko par 
face. J'ai bien dil 2.8 pouces el 
51 Ko par face, ne rigolez pas, 
Avantage cependant : il ne 
coutera que 1000 a 1500 
francs maximum avec softs de 
transfer! fournis. 

...APPRIS avec joie la nais- 
sance de Knight Lore pour 
Amstrad. Son grand frere (qui 
porte le meme nom.) sobstinait 
a ne passer que sur Spectrum 

DOUTE de Dieu en regar- 
dant Commodore se debattre 
dans ses problemes Le C16 
esl brade a un lei prix a Lon- 
dres que la maison mere perd 
de t'argenl, Seule solution en 
vue : laisser lomber puremenl 
el simplemenl la fabrication et 
la venle de cette machine. Les 
revendeurs refusent de remon- 
ter le prix de vente, ils ont trop 
peur de la recession qui frappe 
le marche bntannique. 

. SURSAUTE (car il setait en- 
dormi) quand Goal Computer 
lui a dil qu il avail lintention 
dimporter le Dragon 200 en 
France. Celte sociele propose 
aussi des le mois de mai de 
transformer voire vieux Dragon 
32 en rutilanl lout neuf Dragon 
64. en lourmssant I OS 9 (sys- 
leme d exploitation du disque) 
avec son manuel. en chan- 
geant les Rams, les Roms et 
en rajoulant un multiplexeur 
pour environ 1 100 francs 




HIPPO } nouveau, 
/r"~> VCT ' tirautomatique 

C'est toujours japonais. c'est toujours costaud, mais, en 
plus, ca a un autofire. C'est a dire que. si vous laissez un de 
vos doigts appuye sur un des boutons, le tfr sera a repeti- 
tion, c'est pas beau pa ? Pour le reste rien de change : trois 
boutons de tir, une bonne prise en main et quatre ventouses 
pour le coller definitivement sur la table de la salle a manger 
(super-pratique pour les repas !) Prise stantard pour Atari, 
Commodore 64, Vic 20. Compatible avec les interfaces 
Oric et Spectrum. Pour Apple. Thomson, Texas, Machbro et 
Trucmuche. Tintin : ca ne marche pas ou alors il faudra bi- 
douiller. 

Ah, au fait, c'est plus cher que I'ancien, 120 balles ! De toute 
facon, de I'ancien il n'y en a plus alors... 
C'est bon, c'est pas trop cher ? Envoyez vos sous apres 
avoir rempll le bon de commande ci-joint. Le minlstre du 
commerce exterieur du Japon vous remercie blen bas. 







-tt-tr-fr-tt-tt-ti-tr-fi * A it -h it tr it 
Bon de commande a dec ou per et a renvoyer a 
SHIFT EDITIONS, 27 rue du Giniral Foy 75008 
PARIS. 

Nom 

Prenom - 

Adresse 



DATE: 



PU=120F...X...= ....F 

frais <f 'envoi = +1SF 

cheque joint : TOTAL = .... F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable : des 
produits signes SHIFT EDITIONS ! 



L AVENTURE SUH ORIC 



Unjeud'avenlure ca va Sm jeux d'aventure.bonjour les nuits blanches' Vousal- 
lez devenir tour a tour enplorateur, espion, egyptologue. cosmonaule. super-he- 
roselvictimeducfil&bredocteurparanaud Si vous arrive* au bout decessucas- 
se-tete sans problemes de sante et sans troubles mentaux. vous deviendrez 
saoscontesteuii des grands maitresmondiau* dujeud'aventurelUnecasselle 
pleme a craquer pour 120 francs 

Votre One utilise lelangage machine pour reflechir el vous n'avezmalheureuse- 
ment que votre cerveau humam pour le satire au Morpion ! Le "Laby 5" qui suit 
nest pasplus facile ; cinq etages, des trappes partout et ses ascenseurs pas tres 
tiables! Dans "Oil leak", vous devezreparer une voitureau beau milieu de gran- 
destlaquesd'huile Les goutltes, les ravins et les precipices de"Pont-levis"vont 
vous rendre tou ! Le "Parsec" (once a toute Vitesse et la "Guerre nucleaire" est 
tout simplemenl le premier grand Wargame pour One 120 francs la cassette 
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BASIC ETENDU 



TI-99^1A 



'•■ 



"Dork crystal" est sans nul doute un 
des plus beaux et rapides jeux 
ecrils pour Tl 99 votre heros doit rfi- 
cuperer des fragments de cristal dans 
le labynnthe qui est le lieu a la mode 
pour lous les monstres branches de la 
galaxie ! Les autres jeux son! tout aus- 
si erficaces : un superbesauteursursa 
pyramide, un duel pour deux joueurs 
en armure. un casino avec 3 jeux de 
cartes, une centrale nucleaire et "Mis- 
sion penlleuse" qui vous transporters 
dans une jungle hostile endeuxsomp- 
tueux tableaux 120 Irancs les 6 jeux 
en basic etendu 
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SPECTRUM N"1 





Desjeuxdaicadeagogo changezle 
coursdelhistoirea Pearl Harbour, gui- 
dez Albert etKongdansleur pyramide 
favorite, jouez a un jeu de balle en- 
tierement nouveau, construisez 
d'enormes murs avec votre grue de 
chantierel regalez-vous avec de la te- 
quila plus vous en buvez, plus vous 
desamorcez lacilement les bombes 
de "Caramba"! Six super-program- 
mes pour 120 francs 

Deux jeux d arcade ou vous sere/ 
un courageux pompier, Ou pilote 
d'unemotodecoursefonclionnanlau 
langage machine Viennenl ensuile la 
reflexion avec "Puzzle" el la stategie 
avec "Mineur'ouvouspourrez organi- 
ser des competitions jusqu'a 5 
joueurs L'aventure enfin avec 'L'inca 
dor 1 un labuleux jeu graphique en 3 
dimensions 6 super-programmes 
pour 120 francs 



Des jeux, de fetectriate el du plaisir. 
voiiadequoifairefretillerles electrons 
dans votre M05 et quand en plus ces 
jeux sont multiples el douze vous envi- 
sagerez quelques nuits blanches 
d'Othello. de Poker, de Memo 7. Des 
que limmobilite vous paraltra insup- 
portable, partez pour lespace pro- 
fond (Worp) ou retrouvez vos amis (li- 
chier d adresse) Vous verrez, vous 
n en croirez pas plus vos yeux que vo- 
ire M05 n'en croira ses jeux ' 

A BON DE COMMANDE A REN- 

* VOYER A SHIFT EDITIONS, 27 

* rue du Gal Foy 75008 PARIS. 
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DATE 
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DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rien de bien original dans 
cette formula, pourtant nous 
essayons de talre quelque 
chose de different: nous orga- 
nisons un concours perma- 
nent tous les mois et tous les 
trimestres! Et avec des prix 
dlgnes des programmes que 
vous allez nous envoyert 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuelle. 

Pas de jury, pas de decision 
arbitrage, HEBDOGICIEL n'in- 
tervenant que dans le cholx 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. SI votre programme 
n'est pas tout a fait au point, 
un de nos speclalistes vous 
dira comment I'ameliorer pour 
pouvoir nous le proposer a 
nouveau. 

Pour partlciper, il vous sufflt 
de nous envoyer vos pro- 
grammes accompagnes du 
bon de participation ainsi que 
toutes les explications neces- 



salres a I utilisation de ce pro- 
gramme. 
Bonne chance! 
Reglement: 

ART.1; HEBDOGICIEL organise 
de (agon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logiciel 
du mois et du trimestre. 
ART.2: Ce concours est ouvert 
a tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
K7 ou dlsquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL 
constitue I'acte de candidature. 
ART.3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'originalite les logi- 
ciels qui sont publies dans le 
journal. 

ART.4; Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuels el 
Irimestriels. 

ART.5: Le prix alloue pour le 
concours mensuel sera remis au 
plus lard un mois apres la clo- 
ture du concours mensuel. 



f BON DE PARTICIPATION 



ART.6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel 
ART.7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre 1 rue des Halles 75001 

ART8: HEBDOGICIEL se re- 
serve le droit dinterrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART.9: La participation au 
concours entraine I acceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fort pourcentage de vote 
par rapport a la totallte des 
programmes recus pour un 
meme ordinateur. 
Alnsi, pas de favoritisme pour 
les ordlnateurs plus puissants 
ou tres diffuses. 



Nom 

Prenom 

Age Profession 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre l auteur dece programme qui n'est n< une imitation m une 
copie d'un programme existant Ce ptogramme reste ma propnete el 
I'autonse HEBDOGICIEL a le publier La remuneration pour les pages 
pubhees sera de 1000 francs par page tun programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire 

(signature des parents pour les mineursl 

Leprogrammedoit etre expedie sur support magrietique (cassette ou 
disquette) accompagne d'un descnptif delaille du materiel utilise, 
dune notice d'utihsation du programme Les supports des program- 
mes pubiies sont conserves noubliez done pas d en fane une copie 
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LE RETOUR 
DES DEULIGNEURS 



Ms laccomplissent en lorme puisque cette semaine 
nous aura apporte son lot de bonnes surprises. A 
vous de les decouvrir maintenant 

Pascal CUGNIET change de curseur comme de 
chemise, en void la demonstration guernere. 

^ Listing Vic 20 

1 PQKES6 1 24 P0KE52 . 24 PR I NTCHRt (142) 
P0KE657. 128 : F0RI-6144T07679 P0KEI , 
PEEK U +26624) -NEXT 

2 F0RI=7424T07431 PERDF POKE I. F NEXT 
POKE 36869 . 254 : DRTH32 - 48 ■ 1 2? ■ 56 - 1 26 - 
189, 133, 126 



■ir 



Jose GRILLIERRE vous oftre un mini traitement de 
texte Pour changer de couleur appuyez sur ESC, 
pour sauvegarder Shift et : ,pour charger une page 
shift et arobas enfin pour sortir Backslash. 

^ Listing Oric 1 . Atmos 

8 CLS ! REPEAT :GETR«. IFR»-" : "THENCS 
HVE"«"-FlttBer : l8,E«BFDFELSEIFR««"f>"TH 
ENCL0RD"*" 

1 PRINTR«-UNTILR«=-"-" EH0 



-A- 



Hedi KODJA trace des cercles et des ellipses par- 
faits, sans aucun recours a la trigonometrie 

^ Listing Amstrad 

1 INPUT ll XC/YC*RflY0N u J><CjYC>R'0Rlt>I 
N XC.YC L»«2^R X=R r=8 IM=1+P1*R'8 
FOR 1=0 TO IMPL0T K*Y PLUT -X*Y'P 
LOT X,-Y : PLQT -X.-Y PL01 Y,X PL0I 
-Y,X^PL0T V.-X'PCOT -Y,-X X»X-y*Y 
Y»Y+u*X NEXT 1 i liUTu 1 kEtl CEKCLb r 
tf id* *arii TRIG0. 

2 INPUT "XC;YC.1/2"X, U2^Y">XC. it. 
fl, 8 'ORIGIN XC,YL^[>*2/S0R<.R*M+B*b' 
Dl^DtR^e u2=D*b--R X-H ■ Y=k) 11-1= 1 +P I 
l>'2 FOR 1-0 TO 1M PLOT X.Y'PLOT A, 
-YPL0T -X.YPL0T -X,-Y X-X-UU . . 
=Y+D2*X.NEXT 1 1.010 ^ KU'I LLLlH^t 
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I Listing Spectrum 



• HUP.C. I . • NT. ■ I - - - M «S.li! 

7,13,33,8.64,6.193, 197,6,33.8*. 1 
7«, 38,6,33,358, 193,9,33,343.50,3 
53. 358, 6, 33. 197.6.2*. 119.35,5,33 



ZC U5R 33888 

Ze USA 33808" 



: onaKCe-ROGE*. 



OKC65535.23 RHND0M1 
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C'est tout pour les accessits. Passons aux meilleu- 
res productions ; 

Therese EVEILLEAU (toujours aussi mignonne) 
remporte haut la main les deux softs grace a son 
micro alcoolique. 

^ Listing Thomson 

10 PRIM fCHRS<£8;>: FORI =8T08:F0P J=0TO39: SC 

PFT = 256#PEEK f 6H685rt ■*PEEK> (.H695B ; : SCPPT = 

SCRPT+4e:POK.EtH6e5ft.SCRPTa£56:POKEfcH605e 

.iCRPT I10D256 

£$ m=SCREEN(.J. I>:PRINTCHR*(ft>; : NEXT J, UP 

PI NT: PR I NT :PRINT: PRINT: PR I NT: PRINT: PR I NT 

: PR I NT J PR I NT: PR I NT :PRINT: PR I NT: PR I NT! PR I 

NT:PRINT 

Ex aequo dans la categorie gag, Etienne CARON 
(listing 1) et Bruno de la BOISSERIE (listing 2) ont 
mis leur Canon dans une cage Chut ! Ecoutez... 

^ Listing Canon 1 

1 0UT244,25S:OUT24 3,O: IFRND I 1 ) < . 3THEN1 EL 
SEFORT-0TORNDI 1 J *30*15! NEXT 

2 F0RA%"13T0HNDf 1 I *33» 13: OUT242 , A%: NEXT : , 
OUT24Z,S:G0TOl 

^ Listing Canon 2 

10 OUT244,7B:OUT243,0:X-RND10!«13*30: Y-R 

NDI 11*19*30 

20 s-SGNir-xi :p«io»s:fora-xtdy*psteps:ou 

T242,fl:NEXTA:OUT242,0:60T010 
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David ORAIN offre 64 couleurs a son Spectrum ei 
deuligne, mode d'emploi inc'NS ! 



Ouf, j'chuis creve. bonne nuit et a la semaine 
proch ... 77777... 




AMSTRAD 



CHERCHE programmes pour 
AMSTRAD CPC 464. 

EC HANG E materiel radio 

commande et divers contre ma- 
teriel micro- informatique Tel : 
16(49) 68 10 69. 

RECHERCHE jeux utilitaires 
divers pour AMSTRAD CPC 
464 Antoine GERARDO. Gi- 
ronne Lavaull ste Anne 03310 
MERIS LES BAINS 

CHERCHE programmes pour 
AMSTRAD CPC 464. Xavier 
GRIS. 204 rue de I'Oradou 
63000 CLERMONT FERRANT 

CHERCHE possesseur d'AMS- 
TRAD pour echange de logiciels 
el didees. Pascal FOURNIER 
18 rue du Brabant 37100 
TOURS. Tel ; 51 39 50. 

VENDS ou ECHANGE de nom- 
breux logiciels pour AMSTRAD 
Yannrck BOCQUENET. 2 le petit 
Bosquet 13109 SIMIANE. Tel 
42 69 42 94 



APPLE 

VENDS APPLE II + Floppy + 
contr6l. + Chat Mauve + livres 
+ nombreux logiciels; 8000 F 
a debattre. Tel: (43) 20 45 48. 



VENDS ATARI 800 XL + lec- 
(eur de disquettes + programmes 
+ magneto 1010; 5000 F, ou 
ATARI + lecteur drive seul: 
3600 F Tel: 222 69 18. 



VENDS ATARI 800 XL + lec- 
teur de cassettes + interface 
peritel ♦ manette de ieux + |eu 
Bnstes + livre basic ATARI 
2300 F. Aymeric JOSSE 120 
route des Charmes 78320 LE 
VIS ST NOM 



VENDS ATARI 800 XL + lec- 
teur de disquettes: 3600 F + im- 
pnmante 4 couleurs. 650 F. + 
16 jeux originaux sur disk ou 
cart, dont Ultima III. Summer 
games, 7 cities of gold, Bruce 
Lee. Boulder Dash etc.: 2700 
F. ou le tout 6600 F. Tel: 329 
48 21, 



VENDS ATARI VCS 2600 + 
transformateur + joysticks + 8 
cartouches + notices duplica- 
tion: 1500 F. Michel ARCAN 12 
rue Pierre Sonnerat 69000 
LYON. Tel: (7) 875 50 37 



CANON X07 

ACHETE les programmes 
d'HEBDOGICIEL parus avant le 
n" 77. Pierre-Alain MARTIN. 
Chatelard 54 A 1018 LAU- 
SANNE SUISSE 



VENDS CANON X07 + impn- 
mante 4 couleurs + carle gra- 
phique + programmes : 3000 F 
Laurent PERRENOT. Pont Mor- 
liet 26260 SAINT DONAT Tel 
(75) 45 1 1 65. 



VENDS CANON X07 + carte 
mev 4KO + cordon K7 : 1700 F. 
JC LAURENT 13 allee E. Dolel 
93190 LIVRY GARGAN Tel 
330 12 B7 

VENDS CANON X07 + T. Tra- 
cante + monitor card + tous ac- 
cessoires + 4 cassettes : 3800 
F. Magneto en supplement. Tel : 
(42) 56 47 48. 



VENDS CANON X07 24K + 
peritel O720 + imprimante X710 
+ convertis X722+ cartes me- 
moire 4K et 8K + cartes "Fi- 
chier", "Monitor". "Graphique" + 
imprimante Brother EP44 + mi- 
crocassette Olympus C100. Ma- 
teriel foumi avec b Iocs- sec teur 
+ cordons + notices et embalia- 
ges d'origme M. LEMARIE. 188 
bis rue de Crimee 75019 
PARIS. Tel : 206 40 83. 



VENDS CANON X07 8K - ali- 
mentation secteur * cordon K7 
+ carte Monitor card 4Ko Ram 
BKo Rom ♦ manuels - pro- 
grammes sur K7 + documents 
tions diverse 2000 Fa debattre 
Possibility de vendre le Monitor 
Card seul 400 F + magneto 
cassette Tel l (42) 56 47 48 



VENDS CANON X07 8K + 
carte memoire 4K + table tra- 
car.te + cordons + cassette + 
livres: 3200 F Tel: 705 69 14 
ou 551 66 06 apres 18h 

VENDS CANON X07 16 KO + 
table tracante + monitor Card + 
tous accessoires + 4 cassettes 
de programmes : Jeux graphi- 
que*:, Othello. Systeme Expert, 
2 a^sembleurs : 3800 F + ma- 
gneto en supplement. Mr NEL- 
SON. 21 Saint Felix 13800 
ISTRES. 



VENDS COM 64 + lecteur de 
cassettes fsous garantie) 2200 
F. Tel 337 57 43 demander 
Marc 



VENDS COMMODORE 64 + 
lecteur de disk cassette + livres 
+ 3 manettes + peritel + inter 
face ♦ moniteur + 350 pro 
grammes : Prix a debattre Fa 
bnce DUCATEZ. 16 rue V 
Scotto 59760 GRANDE SYN 
THE. Tel (25) 25 19 20. 



MSX 

ECHANGE 50 programmes 
MSX Stephane FERHAT. 148 
rue de Verdun BT 4 94500 
CHAMPIGNY S MARNE. Tel: 
706 84 19 



COMMODORE 64 

VENDS COM 64 + lecteur de 
disquettes + 20 jeux: 4000 F. 
Stephane DULAC. 14 rue Emile 
Veray 69180 SAINT PIERRE 
DE CHANDIEU. Tel : 16 (7) 840 
26 14. 

VENDS LIVRES pour COM 64 
at ECHANGE programmes sur 
cassette jeux et utilitaires. 
CHERCHE unite de disquettes a 
prix raisonnable et stylo. Fabrice 
POIX. Rue de I'Eglise Ecuvilly 
60310 Lassigny. Tel : 16 (4) 443 
30 67. 

CHERCHE jeux de roles et 
daventures pour COMMODORE 
et ECHANGE logiciels de jeux 
et d'utilitaires . David SOUVI- 
GNET. 18 rue Jean Zay 42100 
St ETIENNE. Tel : (77) 25 67 89 
a partir de 19h.(NDLMC . Pour 
que je t'envoie ma photo, fau- 
drait d'abord que tu m'envoie la 
tienne pour que je voie a quoi 
ressemble mon fan le plus 
acharne !<>). 



VENDS COM 64 + magneto 
cassette + moniteur vert TP200 
+ manette + 4 jeux + cordon 
ampli + 3 livres sur COM 64 
3200 F. a debattre. Laurent 
PRETO 4 impasse des Etats 
Unis 57110 YUTZ. Tel . 256 26 
56. 



VENDS MSX YAMAHA YIS503F 
+ nombreux programmes: 2800 
F. a debattre. Tel: 951 11 
57 (NDLMC: Merci pour le gros 
bisou mon petit poussin). 



ECHANGE PROGRAMMES 

pour MSX utititaires, (Zen, Moni- 
tor) + programmes de jeux 
(Zaxxon. Buck Rogers. Stop the 
Express, etc. ..I VENDS le 6502 
de Rodnay: Zacks Dictionnaire 
de basic tele couleur 57 cm 
secam pas de peritel. Jean Paul 
GUILLE. 2 rue Foucher le Pelle- 
tier 92130 ISSY LES MOULI- 
NEAUX. Tel: 554 84 96 a partir 
de 18h.(NDLMC: Merci pour la 
proposition de la cassette, on 
est d'accord) 

VENDS Phil MSX VG 8000 + 
livre - 1 - 5 cassettes + 7 program- 
mes + lecteur de cassette 
compatible + liche + TV. NB. 
portable: 20000 FB . ou 3100 
FF Guy DALEZ. Cite Spruyt 2- 
9-C 7330 ST GHISLAIN. BELGI- 
OUE. 



CHERCHE possesseur de MSX 
pour echange didees et autre 
Serge PIGUET. 82 rue du Bois 
Hardy 44100 NANTES. Tel: (40) 
43 22 00 

CHERCHE possesseur MSX 
dans la region marseillaise pour 
echanger astuces. programmes 
et eventuellement former un 
Club MSX. Tel: 64 57 38. 



ORIC ATMOS 

VENDS listing Rom desassem- 
blee : 30 F. + cable magneto et 
moniteur ; 40 F piece - RS 232 
C 100 F M ROUVIERE 3 
chemin Bellevue Vourles 69390 
VERNAISON 

ORIC ATMOS CHERCHE cor- 
respondents pour ECHANGER 
jeux. astuces. utilitaires. |eux 
d'HEBDO. CHERCHE egaie- 
ment interface manette de jeu et 
manette a pnx raisonnable 
Thierry ANDRE 70 rue de Lau- 
nay 28000 CHARTRES Tel : 28 
63 56. (NDLMC Pour le gros 
bisou. je peux ten envoyer un. 
mats pour la photo • suis tou- 
jours pas decides ".') 

VENDS pour ORIC ATMOS logi- 
ciels Triathlon et Macadam 
Bumper: 100 F piece. Gerard 
SIMON. 6 11 allee Anatole 
France 92220 BAGNEUX Tel 
547 66 12. 

VENDS ORIC ATMOS 48 K ali- 
mentation + peritel t 70 pro- 
grammes : 1800 F, + impri- 
mante 4 couleurs MCP 40 + 
papier + stylos : 1500 F. M. PE- 
CHADRE. 1 avenue de Norman- 
die 91940 LES ULIS. Tel : (6) 
907 89 30 apres 18h 

VENDS ou ECHANGE program- 
mes pour ATMOS et utilitaires 
(K7 de commerce). Patrick HU- 
GUET. 232 crs Balguerie 33300 
BORDEAUX. Tel : (56) . 50 24 
78 (NDLMC: Si tu veux vrai- 
ment savoir comment je suis. je 
vais te donner un mdice. Atten- 
tion (roulement de tambour '). je 
suis brune HI). 

RECHERCHE pour ORIC 
ATMOS programmes ou explica- 
tion pour passer des program- 
mes de K7 a disquettes. Tel ; 
(16 1)845 94 73. 

VENDS ORIC ATMOS + inter- 
face joysticks programmable j 
50 logiciels + magneto + tous 
les cordons + 20 programmes 
HEBDOGICIEL : 2400 F. Tel : 
(20) 34 38 10. 

VENDS ORIC ATMOS + peritel 
+ alimentation + K7 de jeux + 
manuel d'utilisation + nombreu- 
ses lists : 1900 F Francois DE- 



CHERCHE trues, astuces et 
programmes pour ORIC 
ATMOS Mouhamadou DIAW 
Sicap Liberte I N" 1092 DAKAR 
SENEGAL (NDLMC: Jai une 
laveur a te demander mon petit 
canard Voila. est-ce que tu 
pourrais m'envoyer des timbres 
senegalais s'iI te plait ? Je te 
lais plains de gros bisous et 
merci davance). 

VENDS ORIC 1 + cables + 
livres + 4 cassettes de jeux : 
1000 F M. DAVID. 21 rue De 
Bordeaux 77500 CHELLES. 
Tel : 008 45 08. 

VENDS ORIC 1 + cordons + 
manuel + livres + 2 cassettes 
(apprendre le basic) + 1 cas- 
sette demonstration + 1 cas- 
sette de jeux d'HEBDOGICIEL ; 
1500 F. a debattre Tel: (16 61) 
86 42 86 

VENDS ORIC ATMOS + lecteur 
de disquettes + synthetiseur + 
livres : 4000 F H. D'ORGEIX. 
101 rue Bbucicaut 92260 FON- 
TENAY AUX ROSES. Tel : 702 

26 53 apres 20h. 

VENDS ATMOS + cordon pen- 
tel + 2 cordons magneto + 10 

cassettes de |eux : 2000 F. Tel : 
872 52 47 apres 18h. 

VENDS cassettes pour ORIC 
ATMOS. Grand choix : 100 F. 
maximum. Philippe MEURISSE 

27 les Gramenieres 13000 LA 
FARE LES OLIVIERS. Tel : (90) 
42 53 21 . 



SHARP PC 1500 



VENDS SHARP PC 1500 + 
8KO + imprimante + manuel + 
langage machine + nombreux 
programmes + PC Macro + 
Fast Load + PC Vtil 2 ; 3000 F, 
Rodolphe GOLDSTEIN. 226 
boulevard ST Germain 75007 
PARIS. 

VENDS TANDY PC 2 (PC 1500) 
+ programmes + bidouilles : 
1000 F. + extension 4 KO : 100 
F. + interface K7 imprimante + 
alimentation + programmes + 
stylos + cables: 1100 F Tet 
(50) 66 18 67(NDLMC : Qui est- 
ce qui t'a permis de me pincer 
les fesses. e'est pas fini de te 
faire des illusions pareilles, es- 
pece de cochon va III). 



GAG?... NON... PUB! 
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VIDEOTROC K KHAN«-RIPRia 
^ DEPOT-VBm 
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2000 ieux!" 



NOS PRIX NEUFS ! 

MSX CANON V20- l t ~ 
WftMANTE MSX CANON 
COMMODORE 6J m. - l ,n> 
C0MMO00RE W PERITll • 1 *u 

FIOPPYOSKIHI 

AMSTRAD CPC VA 
• monwji veti • 3 ieui 
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I«0F JOYSTICK UGH SCORE 

IMF - ATARI, SPECTRUM. OR 



0UVERT DU MARDI 
AUSAMEDt DEHjhAM 



89 bis, rue de Choi 

td. 34 
melro : gore de Lyi 
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BLANC BERNARD 

INFORMATIQUE BUREA UTIQUE LYON 

AMSTRAD - SINCLAIR - ORIC 
SHARP - THOMSON - SANYO 
LOGYSTEM 



iinach. 69007 Lyon 
i8 (pres facultes) 

- LOC1CIEL - fORMATION 



VISMO 5 * 7 ° ata '" 

Vente informatique service micro ordinateurs 

ORIC, SINCLAIR, AMSTRAD 

Moniteurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par Hebdogiciel 

VISMO SERA PRESENT A LA FOtRE DE PARIS 

du 27 avril au 8 mai 19SS 

BAT. II niveau 2. stand K20 

Venez vite chercher votre carte d'invitation a I'un 
de nos magasins. 

84. bd Beaumarchais 75011 PARIS 12. bd de ReuiH v 75012 PARIS 
338.60.00 



[BOUTI ,40, 16 



viutuiu/ INFORMATIQUE 

♦ ♦ ♦ ♦ ♦ 

PLACE DES FETES 
75019 PARIS 

SINCLAIR QL 5 490 F 

SPECTRUM + 1 900 F 

CBM64 + Lect. K7 2 990F 
ORIC ATMOS 1 690 F 

AMSTRAD VERT 2 990 F 

TO/. : 207.22.34 - 207.46.09 



VIDE f SHOP 



L'e space le pins micro de Paris 

VIDEO SHOP, e'est le plus grand choix de 

logiciels au nf. C'est aussi de tres nombreuses 

marques : 

- ATARI - LANSflY - COMMODORE 

- AMSTRAD - MSX - THOMSON 

- SINCLAIR - ADAM - EXELYISION 

Passez nous voir nombreux A LA FOIRE DE 
PARIS STAND 2L26 , nous vous y attentions 
jusqu'au 8 mai. 

SO, rue de Richelieu 75001 PARIS. 296.33.95 
251, bd Kaspail 75014 PARIS. 




G 

le temple d AMSTRAD 

Inities d'HEBDOGICIEL, venez, en pelerinage. 
visiter le plus fabuleux monument consacre a 
AMSTRAD en France. 



CADEAU DE BIENVENUE 

a tous les fideles munis de cette annonce 



10, boulevard de Strasbourg 
75010 Paris S 206.50.50 

Heures de culte : 9 h 45 a 13 heures - 14 a 19 heures 
tous les jours sauf dimanche 




SHARP PC 1500 

VENDS SHARP PC 1500 + in- 
terlace impnmante CE 150 + 
programmes; 1600 F a debat- 
tre Jean-Luc SALET. Banque 
de France 45204 MONTARGIS 
Tel : 366 22 00 Le soir en se- 
maine 

RECHERCHE PERIPHERI- 

QUES pour PC 1500 + exten- 
sion 16K t adaptateur secteur 
+ interface cassette et RS 232 
Emmanuel WILLEFERT 42 rue 
du Capitaine Jasmin 59133 
PHALEMPIN Tel : 16 20 90 65 
36. 



VENDS SHARP PC 1500 * mo- 
dule 8KO + imprimante CE 150 
+ accessoires + programmes 
(assembleur) : 3000 F. ou 
ECHANGE contre lecteur de 
disquettes APPLE II Tel: 16 (7) 
837 67 78 demander Nicolas. 



VENDS SHARP PC 1500 : 1000 
F, Tel : 974 65 90 aux heures 
de bureau. 



T07, T07 70. M05 

VENDS logiciels pour T07. T07 
70 : Melodia : 235 F., Trap : 175 
F., Meteo-7 : 90 F, Lintrus : 
80 F + livres pour Thomson "Un 
ordinateur et des jeux" : 35 F . 
"Un ordinateur en fete" : 35 F . 
"Basic dos du T07" : 60 F. ou le 
tout : 700 F. Tel ; 821 33 82 
apres 19h. 



VENDS T07 . basic * ma- 
gneto fr 16 K + K7 dietetique - 
Budget Familial + livres • nom- 
breux jeux 3200 F. Tel 537 06 
53 demander Michele. 

VENDS T07 * basic + ma- 
gneto + manettes * extension 
musique + troff + pilot + labo 
survie + 2 livres + crayon opti- 
que + true pour dupliquer pro- 
grammes : 2500 F a debattre 
Tel : 74 21 22 36 apres 20h 

VENDS pour T07. T07 70, 
M05 cartouches : Budget Fa- 
milial" , "Gimini" + 1 livre : 500 
F Tel : (59) 33 92 12. 

CHERCHE personne possedant 
M05 pour echange d idees Tel 
(16 1)271 08 25. 

CHERCHE possesseur de T07. 
T07 70 habitant a proximite de 
la region sud-ouest de LYON 
pour echanger des programmes 
Tel 846 38 73 entre 17h30 et 
19h00 demander Stephane 

VENDS M05 + magneto + 
crayon optique + 13 program- 
mes de jeux + 2 programmes 
educatifs + 2 livres informati- 
que : prix a debattre. Tel (16 
62)93 27 61. 

VENDS T07 + basic + lecteur 
enregistreur programmes + ex- 
tension 16K *■ extension son 
manettes de jeux 4 manettes ■ 
Pictor + Invasion + Eliminator 
+ Pulsar II + Zaptrak + Trap + 
livre d'mitiation Basic t nom- 
breux programmes du journal: 
3800 F Tel: 283 33 36 deman- 
der Vincent. 

VENDS T07 unite centrale + 
memo 7 + 2 livres "Basic T07". 
"Decouverte du T07"; 2500 F 
Bruno BOUDIER. Domaine de la 
Pinte 39600 ARBOIS. Tel: (16) 
84 66 19 52 

VENDS T07 + basic + ma- 
gneto K7 + 2 manettes de jeux 
+ de nombreux programmes de 
jeux et autres + difterents livres. 
3500 F Nicolas BLEYON Rue 
de la Tournette 74230 THONES 
Tel: (50) 02 00 51 apres 17h 



ECHANGE ieux pour M05 
T07, T07 70 Pulsar 2 Fbi 
Inlox. Zoe. Inspecteur Gadget 
Club de Football. IL Intrus Ar 
mada Tel. 16 (68) 65 13 37 
entre 12h el l3h30 

VENDS M05 • magneto - 
crayon optique - extension mu- 
sique et jeux - 2 manettes de 
ieux + 5 cassettes (Pulsar II, 
Stanley. Inlox. Pancho. Vox) • 
cassette de 90 programmes ■ 
livre "Le Guide Du M05 t plu- 
sieurs revues el programmes 
3200 F. Pascal GHIDONI HLM 
Gpe Provence Bat B 13400 AU- 
6AGNE. Tel (42) 70 41 99 
apres 20h 

CHERCHE correspondent pour 
M05 thomson pour echanger 
des programmes, des idees 
etc. . Tel: (24) 41 t9 13 apres 
19h. 



TRS80 

VENDS TRS 80 Pocket + impri- 
mante + notice + livre + pro- 
grammes : 700 F Tel : (23) 64 
16 33. 

VENDS nombreux programmes 
pour TRS 80 mod I. Herve HEN- 
RION. 163 rue de Lorraine 
54400 LONGWY, Tel : 224 27 
28. 

VENDS TRS 80 mod 1 niveau 2 
+ extension 48K + 1 drive + 35 

disquettes + nombreux logiciels 
(visicalc, ieux. utilitaires) + ma- 
nuels et revues : 4500 F 
Alexandre L'HUILLIER. 7 che- 
min des Pres 59420 MOUVAUX 
Tel : (20) 36 81 93. 

VENDS imprimante pour TRS 
80 modele DMP 100 1500 F 
+ cable. Jean Michel RAMADE. 
335 rue Camp des Indiens 
45160 OLIVET. Tel : (38) 69 24 
99(NDLMC : Mera pour le 
bisou (decidemment. je m'r6pete 
en ce moment II)), 

VENDS TRS 80 color 2 Basic 
Etendu + Peritel ■+ raccorde- 
ment magnetophone : 1500 F. 
Tel: (16 91) 53 23 71 apres 
20h 



VENDS TRS 80 modele II! 48K 
- 1 lecteur de disquettes ■ pro- 
grammes 9500 F • L'O I N° 
12 et 14 a 65 RECHERCHE 
revue amencaine 80 Micro Oli- 
vier CREMEL 5 square Maurice 
Ravel 76240 LE MESNIL ES- 
NARD 

VENDS imprimante pour TRS 
80 modele DMP 100 1500 F. 
Tel (38) 69 24 99 INDLMC 
Mera pour le bisou, va faloir 
que jtrouve une autre formule 
parce que ca d viend rmgard. 
trouvez pas 7 ). 

VENDS TRS 80 modele 3 
3350 FF ou 22000 FB G Sl- 
RAUX. 214 rue Ferrer 71 61 
HAINE ST PAUL BELGIOUE 

VENDS TRS 80 16 KO modele 
1 niveau 2 - ieux f livres + 
imprimante * son ♦ assembleur 
+ video 3000 F. Gerard 
CORDES 32 rue George Sand 
85000 LA ROCHE YON Tel : 
(51) 36 18 87 



SPECTRUM 

VENDS ZX SPECTRUM 48K + 
peritel + ZX 1 + micro Drive + 
8 cartouches + clavier + ma- 
netle + imprimante Alphacom 
32 - 200 programmes +■ 4 bou- 
qums 40TO F. Mark DURY. 16 
rue des Allies 93160 NOISY LE 
GRAND Tel 305 38 78. 

VENDS ZX SPECTRUM + 9 
cassettes +- guide + interface 
joysticks 2000 F. + microdrive 
+ interlace ZX1 + manuel + 
traitement de texte : 1200 F. + 
cassettes de jeux et nombreux 
livres. Tel 330 16 66. 

CHERCHE moniteur couleur 
(avec prise Peritel) pour SPEC- 
TRUM Donne en echange 250 
F. f 13 softs. Michel GRAND 
23 rue du pare dartillene 03400 
YZEURE Tel : (70) 44 78 95 

SPECTRUMISTE CHERCHE 
contacts ou Club dans sa region 
pour echange de programmes et 
d'idees Maurice METAIS. 4 
allee Bergere 78480 VERNEUIL 
S S Tel 971 73 19 



VENDS SPECTRUM "- ' - in- 
terlace programmable - ma- 
nette + 13 cassettes + HEB- 
DOGICIEL N e 23, 24. 25 * 2 
livres pleins de programmes en 
prime 2600 F Tel : (61) 73 43 
72. 

VENDS ou ECHANGE nom- 
breux logiciels sur SPECTRUM. 
Vincent RAME. Chemm ST Jean 
13870 ROGNONAS 

VENDS SPECTRUM 48K + in- 
terface peritel + 20 ieux (jamais 
servis). Tel : (94) 79 22 74 

VENDS SPECTRUM i ma 
gneto + peritel + imprimante 
Therm + logiciel + livres 2000 
F Tel ; 682 09 02. 

VENDS SPECTRUM 48K - pe- 
ritel + NB. + interface + 2 joys- 
ticks + magnetophone + livres 
Basic et Assembleur + logiciels 
dont. Manic Miner, Jet set. Eu- 
reka. Cobalt, Sabre wulf. Atic 
atac. Alchemist, Decathlon : 
4000 F. Possibility de vente se- 
paree. Tel : (94)63 12 30. 

VENDS ZX SPECTRUM 48K + 
150 programmes : 2000 F. + in- 
terface Serge REVOL. 2 ave- 
nue du Plateau 91260 JUVISY 
SUR ORGE Tel : 921 46 25 

VENDS SPECTRUM 48K + pe- 
ritel (avec son) + TV. NB. 
Thomson 31 cm + adaptateur 
NB. + 4 livres + 4 cassettes : 
2500 F Tel 461 11 90. 



ZX 81 

VENDS ZX 81 * 16K + carte 
graphique monlee + interface 
manette + manette + magneto- 
cassettes + moniteur AGB * 8 
cassettes 16K du commerce + 1 
K7 avec 10 jeux 16K : 1600 F 
+ TV neuve NB : 2500 F Re- 
naud CAUSIER. 29 avenue 
Foch 92420 VAUCRESSON 
Tel : 16 1 741 49 19. 

VENDS ZX 81 + 16 K + clavier 
ABS + inverse video + livre de 
programmation + Ires nombreux 
programmes sur cassettes : 800 
F Tel 063 15 41 apres 18h 



VENDS ZX 81 avec clavier me 

canique + connection sur la te- 
levision - connection sur le ma- 
gnetophone - transtormateur •■ 
manuel d utilisation - 2 K7 : 600 
F. Tel 16 94 36 14 49 

VENDS ZX 81 + extension 16 K 
* clavier ABS + nombreux logi- 
ciels - listings . 950 F Christian 
CHARZOT 30 rue Charles Du- 
mont 21000 DIJON Tel : 16 80 
67 46 40 apres 16h 

VENDS ZX 81 * extension 

16KO • clavier ABS ♦ alimen- 
tation et cordons - livre I 23 
programmes sur K7 + 15 lis- 
tings : 900 F. Tel : (16 21) 42 34 
01 



VENDS ZX 81 + 16 K + clavier 
ABS + Ordi 5 (1 a 10) + 6 
livres + magneto Philips + 9 
cassettes Prix a debattre. cede 

au plus offrant Tel : (16 28) 48 
05 96 

VENDS ZX 81 + 16 K + 1 cas- 
sette contenant 6 ieux : 700 F 
Tel : (74) 39 01 53 apres 17h. 

VENDS ZX 81 + extension 16 K 
+ magneto (special informati- 
que) + 2 Ordi 5 + nombreux 
programmes Xavier FISSE- 
LIER 86 rue Felibien 44000 
NANTES. 

VENDS ZX 81 f clavier profes- 
sionnel (integre dans boitier) + 
extension 16K + methode debu- 
tants + methode langage ma- 
chine + nombreux softs. Tel : 
569 60 77 



CHERCHE ZX 81 entre 150 et 
200 F, Christophe GAUDIL- 
LERE 12 rue puvis de Chavan- 
nes 71 100 ST REMY. Tel : (85) 
48 25 75. 

VENDS ZX 81 ■* 16 K + ma- 
gneto + 13 programmes ■+ 
hebdos + cordons magneto + 
60 ieux - manuel ZX 81 + pra- 
tique des sinclairs ZX 81 et 
Timex + clavier mecanique : 
2000 F Tel : 959 27 25 deman- 
der Julien apres 18h. 




PI.AISIRS 
INTERDITS 

de Salvalorv Sampicri 




Avec Monica GUERRITORE 
(qu'est assez gironde, 33), 
Lorenzo LENA (quest assez 
bouches du rhone, 13) et 
Giantranco MANFREOI 

(qu'est assez dit la baleine). 
1H35. IT A. 



Oh. mi dim 'ii.ii ! Ca (sail long- 
temps qu'on avail pas eu ca pai 
che; nous ! 

La, le litre a pris un vieux coup 
dans le nez : en nlal il s'appelle 
" Photograph lant Patricia". El bien 
pour une fois c'est le hire frangais 
qui tombe juste (a mon [res hum- 
ble avis). J' dis ca parce que 
comme d'habitude je rale dans 
I'autre sens. . 
C'est pas mal rate Au moms avec 
ca vous etes affranchis des le de- 
part. 

L'histoire en elle-meme ne man- 
que pas d'inleret pourtant entre 
un gargan de 17 ans replie sur 
lui-meme, et sa soeur d'une di- 
zaine d'annees plus vieille naisseni 
des sentiments que Claude Levy- 
Slrauss declare punis dans loutes 
les cultures qu'il ait rencontrees 
(c( Tristes Tropiques. si je 
m abuse) pour tout dire (ralata- 
tatata ' dzing I) I'inceste Mon 
Dieu. quelle horreur ! 
Justement. tu i as dit bout filtre 
Quelle horreur I C'esl la que re 
side tout linlerel du film lc 
soeur, bien que foilemenl excitee 
par l idee (si. si. je n'invente 
rien), y est au depart tres reti- 
cente. Et puis petit a petit. a 
bien... mais seulemen! a la (in du 



film 




Quand je dis petil a petit, c'est 
pas pour des prunes le film est 
ponctue d'arrets sur image, 
images oii figure toujours Palricia. 
Ces images deviennent photos qui 
se placent au fur et a mesure au- 
tour d'une spirale. de la peripheric 
vers le centre, 'pigez le symbole 
hachement compTesque ? Une 
fois, ca va meme pas. alors ima- 
gine! sept fois ! 

Ahaaaa ! Maintenant vous 
comprenez le pourquoi 
comment du litre original, mais au 
fail, quest-ce qui precede quoi ? 
Le litre ou bien le coup de la spi 
rale a photos ? Vous creusez pas 
la lite ga vaut I'oeuf de Chnsto- 
phe Colomb ! 

Deja, vous pouvez imaginer I; 
lourdeur elephanlesque de ce pro- 
cede largement ridicule, mais de 
plus il y a une autre chose que ie 
supporte difficilemenl c'est la 
complaisance Je cite Robert 
(attention aux mauvais jeux de 
mots) ■ "Disposition a s'accom- 
moder ( ) aux gouts d'autru 
dans le but de plaire " Alors la. il 
a tout bon. le realisateur, c'est 
exactement ga Mais sit croit 
ttuper son monde en mettant un 
peu de fesses par-ci et un peu de 
seins par-la. eh ben il se fourre le 
doigt droit dans I'oeil et [usqu'au 
genou. meme. 

Parce que la gonzesse. il nous la 
montre sous tous les angles, et 
sous tous les angles "mode" 
J'essplique : nue. nue avec bas et 
porte-jarretelles, habillee sans 
dessous, se masturbant. condi 
sanl une voiture de sport, bref 
I'image de la temme moderne 
selon Newlook "libelee, done 
nymphomane" Quel manque 
d'imagination ' Quelle puerilite 
Est-ce qu'il ne prendraii pas les 
spectateurs pour des cons par ha- 
sard? 

Enfin. c'est peut-etre un film pour 
adolescents attardes, va savoir 
Juste un dernier petit mot pour 
exprimer un regret qui n esl que 
ma (oi. tres personnel pourquoi 
ces mecs-la quand ils raconlent 
une histoire d'amour taul-il tou- 
jours qu ils se metlent du cote du 
mec ? Et la nana la-dedans, elle 
meuble seulement "> Faudrait pas 
voir a voir, non plus ' 



EZS 




edito 



Ah ' Enfin une semame mte- 
ressante ' 

Sur un plateau je vous oflre. 
dune part de la (esse, avec 
plein de belles gonzesses. et 
d'autre part de llnde Non, pas 
de la dinde, je sais bien que 
dans Astenx les Indiens imitenl 
ies dindes, mais la . tout (aux. 
mais vous ne perdez pas tout 
pour autant car vous repartez 
avec nos superbes boites de 
jeux, illusirees par Carali. 
qu'elles vaudront de lor dans 
10 ans 

PUB < ••• page de publicise 
Et que done que jvous cau- 
sais-je des films de la se- 
maine... 

Bon alors, ceux la-bas au Fond 
qui ricanent et qui disent que 



"si on mel la page cmoche de 
cette semame dans un mixer 
on obtient le Kama Sulfa' . 
dehors ' 
Je reprends : 

En plus en gadget, vous 
devez trouver tous les liens qui 
existent entre les films, et 
croyez-moi. yen a ' 
Tiens, rien que pour vous 
alder, el parce que |e I ai omis 
dans t article, dans La Route 
Des Indes (non. pas la malle) 
y'a une sombre histoire de viol, 
done de la (esse (oueeee ') 
que c'est dailleurs la seute 
histoire de ce film irop long. Ah 
si. y'a aussi un semblani de 
message avec 60 ans de re- 
tard sur le comportemenl des 
colons Anglais Simpliste 
Amusez-vous bien les enfants. 
et ne fades pas les fous. 

CLOU 




box office 

APRES LA REPETITION 

BRAZIL 

PERIL EN LA DEMEURE 

AU-DELA DES MURS 

LA VIE DE FAMILLE 

LA MAISON ET LE MONDE 

BLANCHE ET MARIE 

SUBWAY 

NUIT PORTE JARRETELLES 

PIANOFORTE 

ANOTHER COUNTRY 

LA BALADE INOUBLIABLE 

LES SAISONS DU COEUR 

LE BAISER DE TOSCA 

ELECTRIC DREAMS 

FASTER PUSSYCAT 

LA DECHIRURE 

LOUISE L INSOUMISE 

2010 

POULET AU VINAIGRE 

LES SPECIALISTES 

MOJADO POWER 

LE JEU DU FAUCON 

TERMINATOR 

THE BOSTONIANS 

LA ROUTE DES INDES 

LE KID DE LA PLAGE 




Avec Soumitra CHATTERJEE 
(un monsieur), Swatileka 
CHATTERJEE (une madame) 
et.... Victor BANERJEE (my 
hero !). 2H21. INDE. 



Que ceux qui ne connaissent 
pas Satyajit RAY se levent el 
sortenl Ou plutol non : qu'ils 
restent et lisent un peu de 
(agon a avoir quelques notions 
sur ce super-grand du cinema 
mondial. Quand je dis super- 
grand, c'est pas du pipeau. 
vous pouvez le ranger dans 
voire album de photos-souve- 
nirs aux cotes de Gance. 
Melies, De Sica. Renoir. Fel- 
lini, Lang (non. non pas le mi- 
nistre. lui il est seulement ba- 
laise en theatre) et autres 
Kurosawa. Ozu and Co. 
D'abord je vous louche deux 
mots du cinema indien en ge- 
neral, puis je vous cause du 
metteur en scene et enlin je 
vous causerai du film et du 
bouquin dont il a ele tire Jdis 
ga comme ca pour ceux qu'au- 
raient un (rain a prendre ou 
autre chose urgente de ce 
genre a laire, et qui n'auraient 
pas le temps de tout lire, ainsi 
ils pourront direclement passer 
aux derniers paragraphes 
Et maintenant a table ! 
Llnde est le plus gros produc- 
leur mondial de films Ca vous 
en bouche un coin, non ? Plus 
forts que les Ricalns. plus forts 
que les Chinols de Hong-Kong 
Deux a trois films par jour sor- 
tent des studios indiens. faites 
un peu (onctionner voire cer- 
velle saturee des algonthmes 
et des schemas de notre glo- 
rieuse page pedago. mettez un 
peu de musique de fond, 
genre "Switched On Bach' 
avec des synthes lout parlout 
pour bien arnver au nirvana de 
lanlhmetique menlale. et vous 
deduisez que la production an- 
nuelle de films indiens est 
d'environ 800 a tOOO ! Mas- 
seu ! Quelle claque ' Bon il ne 



LA MAISON ET LE MONDE 

</<■ SufUtjil Hay 




idul eviuemmeni pas oubtier 
que les Indiens son! de lordre 
de 700 millions, el qu il esl ne- 
cessaire de produire en pro- 
portion, mais quand meme ' 
Et quel genre de (ilms est-ce 
done la mon enfant ? Eh bien 
Papy. il faul malheureusement 
avouer que les Indiens ont un 
gout tres prononce pour les ro- 
mances a leau de rose, avec 
plem de guimauve et plein de 
miel qui degouline Moi. | aime 
pas trop, meme que pendant 
Chamrousse j'ai bien faiili me 
(aire vider du Festival a cause 
des conneries que je 'acontais 
pendant un film sovielique lui 
aussi alio de rose (Comme 
y avail plein de gens qui se 
marraient parce queux aussi 
sennuyaient comme des rats 
morts. on ma pas vide, out ') 
En tous cas il faut bien se re- 
soudre a admettre qu il doit 
exister un large public en inde 
pour ce genre de films 
Le plus (ou. cesi la fagon dont 
ces films sont fails Auiourd hut 
se lourne lei film qui conte 
comment la pnncesse Machin- 
iee (elle est bengad) se fait de- 
livrer des gnffes du vilams 'ad- 
iah par son neros sans peur et 
tralala et toe Vous voyez le ta- 



bleau. Demain ce sera une 
histoire d'enfants perdus qui 
apres avoir 3te recueillis par 
un couple de pauvres pe- 
cheurs du Gange. se rendent 
compte qu ils sont en fait des 
fits el hlles de princes et de 
rois dont la mere elait cousine 
au deuxieme degre par al- 
liance du gouverneur, etc 
Curieusement dans les deux 
dims M y a une scene qui se 
passe dans un temple devmez 
ce qui arrive, eh bien comme 
de bien entendu. dun film a 
I autre on se repasse les 
decors, ni vu ni connu C esl 
amsi au on arrive a (aire des 
dims qui ne coutenl pratique- 
men! rien. d'toutes mameres, 
c sonl les memes acteurs dans 
les deux cas ! 

Stop ' Deux mots sur Satyajit 
Ray Daucuns diront que ce 
monsieur fait des films en- 
nuyeux et longs Ce sont les 
memes qui diront la meme 
chose pour les films de Kuro- 
sawa Toul ca nest qu une 
question de gout Mais avant 
de |uger. mieux vaut voir par 
soi-meme. non ? C est un Ben- 
gali qui a integre sa culture 
dans son cinema, souveni 
grave el drolalique <cf la trilo- 



gie d Apu) Bon. j vais pas 
vous faire le coup de lintellec- 
tuel a 2 sous. la. j arrete mon 
char. Les fideles du Cine-club 
auront probablement vu un de 
ses meilleurs films : Le Salon 
De Musique. ils savent done a 
quoi sen lenir : c'est un des 
plus grand cmeastes encore 
en vie et c'est pas rien 
And now ladies and gentle- 
men, meinen Damen und Her- 
ren .., Le film ! qui s appelle ie 
vous le rappelle La Maison El 
Le Monde, comme ca okaz ou 
vous launez oublie. 
Je ne suis pas un fan de radis. 
nan, du bouquin de Rabindra- 
nath Tagore (ed Payot) Mais 
Ray y a vu certainemenl des 
choses que |e ne pouvais voir 
pour la bonne raison que ie ne 
suis ni Bengali, ni meme In- 
dien, et |e suis sur que ga 
joue Je dis ga parce que le 
film est dune telle luxuriance 
de couteurs et de lumieres. 
que ie suis encore sous le 
choc L'histoire nous raconte 
comment un noble indien pro- 
gressisle amene sa femme a 
sortir du gynecee ou la tradi- 
tion la cloitre. Elle accepte en 
fait d'en sortir par la cunosite 
que suscite en elle un ami de 
son man qui est un leader du 
nouveau mouvemenl nationa- 
lisle anti-anglais. Tout ceci se 
passe en 1905 6 Jessaie de 
pas trop vous ennuyer avec 
mes lormules a la con. mais 
c'est un film qui Iraite de la 
passion et de la raison et c'est 
merveilleux. 

Je sais bien qu'en (ait j ai pas 
beaucoup cause du film, mais 
que voulez-vous. les grands 
maitres ga m'intimide. et j ai 
peur de dire trop d'anenes. 
alors je me retiens ( Notez tou- 
tefois que ce nest pas son 
plus grand film, mais que 30 
ans apres ses debuts il reste 
toujours auss 1 genial Voila. 
(Putam, quest-ce qu'il est long 
ce paplar ! mais pour un mec 
de cette pomture, il lui tallait au 
moms ga !) 



MAI A IIAR1 

de Curtis Harrington 




Avec Sylvia KRISTEL (ouais. 
la fine dans Emmanuelle), 
Christopher CAZENAVE et 
Oliver TOBIAS. USA. 



Voila le 7e (au bas mot) dim 
de fait sur Mata-Hari depuis la 
mort de celle-ci en 1 9 1 7 
Conclusion : ou bien c'est un 
puits sans fond en matiere 
d inspiration ou bien les see 
nanstes n'onl plus d'imagina- 
tion, ou bien les deux, toujours 
est-il quen via un nouveau 
Qua-t-il de plus 7 Un peu de 
fesse Ouelqu un est-il 

etonne ? Non ? Bon, cest que 
vous connaissez done un mini- 
mum le monde du cinema De 
loutes fagons les fesses en 
question, on les connan deia. 



n est-ce-pas ? 

Que voulez-vous que je vous 
en dise 7 Que c est fabuleux ? 
Non. bien entendu Bon alors 
nous sommes d accord et par- 
Ions de choses plus ngoiotes . 
de coincidences que comme 
par hasard jl'ai pas (ail expres 
La premiere cest que JL RI- 
CHARD a realise un Mata- 
Han' en 1964 avec un scena- 
nste du nom de Francois 
TRUFFAUT ga vous rappetle 
rien. ce tandem lc* ci-contre) 9 
Et dans ce Mata-Han-la cetail 
Jeanne MOREAU quelques 
taiHes au-dessus quoi 
Deuxieme coincidence Sylvia 
a ele I heroine dun dim de 
Salvatore Sampien let I autre 
ci-contre) qui date de 1981 
L Amour En Premiere Classe. 
etonnant. non 7 Et a votre avis 
est-ce qu on la voyait nue dans 
ce dim ? Pardon ? Lisez plus 
fort je nvous emends pas 
Vous avez bien dit 'our ' En 
bien vous avez raison bravo 
Bon. ben a oart toutes ces 
consideralions pour le moms 
deplacees romme nos coinci- 
dences vous avez autre chose 
a voir Elertnc Dreams, par 
exempie ' 



LK 1)1 ( 1.1 ( de Jean-Louis Richard 



Avec Florence GUERIN 
(qu'est belte. mais ga fait tel- 
lement de belles gonzesses. 
qu'on se demande bien ou 
ils vont les chercher). Jean- 
Pierre KALFON (super) et 
Bernard KUBY FRA 



Prendre un BD a succes et en 
(aire un film ga cest une idee 
quelle esl bonne pas vrai ? 
Quand en plus cest une BD 
de Milo Manara cest encore 
mieux. a prion Mais quand on 
sail que Manara n'a fait cette 
BD que pour pouvoir se 'aire 
un peu de sous, et qu en (ait tl 
en est pas particulierement 
fier. la on commence a tiquer 
Cest vrai que c esl loin d'etre 
la meilleure de ses produc- 
tions HP et Giuseppe Berg- 
man, par exempie c'esl du so- 
lide cest fouille cest nqoio 
c'esl raltme. sophisl'que el de- 
liranl cest une BD a aver ah 
solument dans sa BDthenue 
Le Deciic su' papier esi piutn 
bandant (he oui 'i grace a ce* 
tames pages qui ti'eni "es ne 1 
tement suf le porno et quarc 
il dessine une beile Mw I ' :; ' 
LA belle fille rxjniour i« 



canon ! Le probleme c est qu a 
la limite la BD ne tient que par 
ces scenes de cul. le reste de 
l'histoire henl plutot a un fil. ou 
mieux. a une petite boile 
Dans le dim. les scenes porno 
sont transformees en scenes 
softs, et encore, cest surtout 
dans le language que notre 
nymphomane sur commande 
se dechaine, un peu faible 
Mais ce qu il faut savoir c'esl 
que ces scenes n ont pas ete 
tournees par Jean-Louis Ri- 
chard qui eut un accident quel- 
ques jours avant la fin du tour- 
nag e c'esl peut-etre une 
explication Remarquez. ce 
nesl meme pas lui qui devait 
le 'aire ce film, on lui avail pro- 
pose, mais il lavait refuse (je 
sais tout ga parce que je I'ai 
interviewe), mais les circons- 
tances aidant... 

Done voila. cest loin d etre ge- 
nial mais les films de 
commande. vous savez, cesi 
raremenl ce qu'il y a de mieux, 
vous pouvez etre sur que JL 
Richard, 'era mieux la pro- 
giane fois. apres lout il ful le 
scenanste de "La Nuit Amen- 
caire de Truttaul. LE film qui 
t> a decide a essayef de faire 
7u cmoche 



LA KOI II 
DIS INDES 

,/.' dam Marshall 



Avec Dame Peggy ASH- 
CROFT (oscar !), Judy 
DAVIS, James FOX. Victor 
BANERJEE (my hero !), Alec 
GUINNESS (hips!), James 
FOX et Nigel HAVERS. 2H45. 
GB. 



Evidemment quand vous voyez 
sur la meme page deux (ilms 
qui traitent de llnde vous vous 
doutez bien qu'il y a anguille 
sous roche. surtout avec un 
persifleur comme je suis, 
gniark '. gniark ! gniark ! Et bien 
sur vous avez lout bon, effecli- 
vement. je mijote un sale coup. 
Vous savez bien. c'est le mec 
qua fait Le Docteur Jivago. Le 
Pont De La Riviere Kwai el 
Lawrence d'Arabie. Comme 
quoi, ie sais bien lire la pub. 
"David LEAN, ah ! David 
LEAN ) Mais pourquoi n'as-tu 
done rien fait depuis lant d'an- 
nees 9 " Voila ce que certains 
seraient tentes de dire avanl 
meme d avoir vu ce dernier 
film long (ga commence). 
Oui. pourquoi ? Sag warum ' 
Hein, nan mais dis. pourquoi ? 
Parce que t'avais peur ? Mais 
de qui done, de la critique 
Mais fes con, ou quoi ? Tu 
sais Ires bien que quoi que di 
sent les critiques, tu fais la 
tune de la meme (agon, alors 
franchement, c'qu'on en dit 
nous.... 

Pourquoi las fait un film qui 
est si long, hein ? Parce que 
ga laisait des annees que tu 
revais de te payer un voyage 
en Inde et que I'attendais le 
moment propice pour pouvoir 

partir am !r§!§ de la pnn- 
cesse ? Mais, quoi, t'as pas 
assez de tunes pour partir tout 
seul. comme un grand ? T'as 
absolument besoin de toule 
une armada de technicos, 
d'acteurs et de figurants pour 
te deplacer tranquillemenl ? Ah 
ben si j'avais su ' 
Et evidemment une fois que 
t'es sur place tu peux pas 
fempecher de gacher de la 
pelllcule en filmant les paysa- 
ges de I'lnde que lu trouves si 
beaux depuis que tu les a vus 
en cartes postales il y a si 
tongtemps. Au moins comme 
ga Cas quelque chose a mon 
trer a la production quand lu 
renlres au bercail, pour bien 
leur montrer que t'as pas foutu 
en lair tout leur fnc. 
Dailleurs cest vachement pra- 
tique, parce que comme ga lu 
pourras montrer les images 
dans le film que lu es cense 
faire. Des beaux paysages, I. 
mer, le Gange. les grottes que 
t'as fait faire expres par 
deco parce que sur place y 
avail pas. Altendez. les grottes 
(ouais, parce que y'a des grot- 
tes dans le film, qu'elles sonl 
hachement importantes) ne 
sont pas en carton-pate, non, 
non. non ; ils avaieni tellement 
de fnc sur ce film qu'ils on 
perce des falaises a I'explosif 
BOUM ! Dans le serie "On fait 
dans la denlelle !". bonjour les 
degals ! J'me d'mande s'ils ont 
lout rebouche apres. Ca 
strouve non. parce que c'esl 
le genre d'endroits qui peut 
maintenanl devenir un haut 
lieu de tourisme pelennage, 
avec des guides qui vous font 
payer pour vous montrer la ou 
a tourne le "maitre" ! El hop, 
par ici la monnaie des royal- 
ties ! 

Chuis vraiment dur avec ce 
film, mais (aut dire qu'il a vrai- 
ment tire tres fort sur lelasti 
que tres mince de son scena 
rlo pour en sortir 2H45. 
Heureusement qu'il y a Dame 
Peggy Ashcroft avec son oscar 
merile, el Victor Banerjee qui 
sauve la mise, mais on aurait 
pu tirer beaucoup plus d'Alec 
Guinness a la pression. lu 
qu est toujours pre! a se faire 
mousser ! 

Sur ce dernier jeu de mots va- 
seux, ne courez pas voir ce 
film i 



tUoche 



LES LUMIERES DE LA V1LLE 

Manhattan O 



Film de Woody Allen (1979) 
avec Woody Allen. Margot 
Hemingway. Meryl Streep et 
Diane Keaton, Musique 
Georges Gershwin. Photo 
Gordon Willis. 

Ouverture musicale Jazzy 
Voix off. Fondu enchaine / 

Love New-York Repete sepl 
fois. Toul est la. (atmosphere. 
le sujet. la mamere 

L'intrigue, c'esl Iheoriquement 
les amours d'lsaac Davis 
(Woody Allen), ecrivaillon me- 
diocre, sex-symbol pour films 
d'horreurs Abandonne par sa 
femme. Jill (Meryl Streep). qui 
vit maintenant avec une amie 
et menace de publief I'histoire 
de sa vie intime. Isaac hesite a 
sengager enlre Tracy (M He- 
mingway), ires jeune, Ires dy- 
namique et Mary (Diane Kea- 
ton). mtellocrate patentee 

Les meandres du coeur et des 
reins d'lsaac ne sont que des 
pretextes Le personnage prin- 
cipal du film, c'est MANHAT- 
TAN, le quadfilatere entre 
Greenwich Village et Central 
Park qu'lsaac parcourt a pied 
lorsquil court dire son amour a 
Tracy Davantage que les 
femmes. c'est sa vilie qu'il 
aime et possede 



MANHATTAN, c'est du grand 
spectacle du noir el blanc en 
cinemascope, un arl de I es- 
pace et du jeu nostalgique 
dun cinema aux coudees (ran- 
ches MANHATTAN, C'est un 
personnage de farfelu tendre 
qui renoue avec une veme de 
sentimentalite chaplmesque. 
une succession de gags fon- 
dee sur la psychology et te 
verbe (en V.O. sil vous plait) 




De toute facon, les poissons 
nentendent rien au karate. 



MANHATTAN, c'esl un delire 
en narcissime maieur. un 
poeme d'amour sublime. Ma 
ville. entends-tu I'homme qui 
cne son amour au milieu de la 
nuit ? 

Diffusion le 9 mai a 20h35 en 
V.O. sur FR 3. 




LftlSSER LE BON TEMPS ROULER 

les enfants du rock % 




Reportage sur le Mardi Gras 
Time in New Orleans (JAM- 
BALAYA) presente par Za- 
chary Richard. 

Le JAMBALAYA, c'est du nz, 
du poulet. du pore, des fruits 
de mer, des oignons. des poi- 
vrons et des epices. Plat de 
fele. cesl un appGi aux re- 
jouissances Miracle, c'est 
aussi pour vous ce solr. un 
festival d'images. de couleur et 
de son, la parade de la Nou- 
velle Orleans, le carnaval des 
bayous. 

Le JAMBALAYA, c'est du fol- 
klore traditionnel Louisianais. 
des rythmes afneains. du blues 
des campagnes, du jazz Dixie- 
land et de la musique Ca|un 



C'est un cocktail qui explose 
dans la tele, vous remue les 
tripes et vous vous relrouvez 
en tram de taper du pied et de 
balancer du cul sans vous en 
rendre compte Square dance. 
boogie-woogie, rock and roll el 
toutes ces sortes de choses 




Le JAMBALAYA. c'est grace 
aux Neville Brothers. Allen 
Toussamt, Zachary Richard, Dr 
John et Clifton Chenier la meil- 
leure emission des enfants du 
rock de I'annee. Bien arrose, 
ca demenage sec 



curiosit&s : 



BUNNY S BAR 



Piece de Josiane Balasko 
avec Josianne Balasko, Mi- 
chel Blanc et Valerie Mai- 
resse, 

Au Bunny's bar, une boiie a 
strip-tease de Pigalie.Anita(Ba- 
lasko) dame-pipi de lelablisse- 
ment discule avec Jacques 
(Blanc) le portier. pianiste rate 
qui reve d'etre une star, lis 
accueillent Betty (Mairesse) 
petit chaperon rose de ban- 
lieue. qui vient remplacer 
Anita, laquelle part a Metz 
eoouser I'homme de sa vie 



* m 



Mon reve e'etait d'elever des 
moutons. 

Le cafe-theatre a son sommet 
(1980). Le texte est correct, les 
acteurs bien dans la peau des 
personnages mais la mise en 
scene inexistante. C est mou. 
Le comique debride est un 
genre qui exige un rythme el- 
frene Dommage 

Diffusion le 6 a 21h55 sur 



Film de Norman Mc Leod 
(1934) avec W.C Fields et 
Baby le Roy. 

Tourne en deux |Ours a partir 
d'un scenario de W.C Fields. 
I'lvtogne le plus celebre de la 
Calilomie apparaft a chaque 
scene. L histoire de Harold Bis- 
sonette petit boutiquier mal- 



.♦V\ 




mene par sa idinuie i 
qu un festival, une succession 
de gags ou il subit Baby le 
Roy. le bebe le plus mal lune 
d'Hollywood 

Diffusion le 10 a 23h0O sur 
A2. 



%OI ffs 




telocke 





Lundi 6 mai 


20h30 C + 


LE FAUCON (le reatisateur n'esl pas un 




aigle) 




LHEURE DE VERITE, Francois Leotard 


20h35 FR3 


TEMPECHES TOUT LE MONDE DE 




DORMIR llilm soponlique) 


20h35 TF 1 


PLUS DURE SERA LA CHUTE He der- 




nier Bogart) 


21h55 A2 


PETIT THEATRE. Bunny's bar (voir 




CURIOSITES) 


22h20 TF 1 


ETOILES ET TOILES (magazine bran- 




che) 


22h30 FR3 


THALASSA (magazine qui a le vent en 




poupe) 


Mardi 7 mai 


20H30 C I 


TIR GROUPE (dansle nul) 


20H35 FR 3 


TESS (voir aiticlelm 


20H35 TF 1 


ENIGMES DU BOUT DU MONDE 


20H35 A2 


LE JOURNAL D'ANNE FRANCK 


21H35 TF1 


MULTIFOOT 


22H05 C + 


FOOTBALL 


Mercredi 8 mai 


20h30 TF 1 


DALLAS 


20h35 FR3 


CADENCE 3 


20h35 A2 


LE BLOCKHAUS (scenario imprenable) 




CLASS (histoires de potaches) 


21h30 TF1 


GUERRE DUN SEUL HOMME 


22h10 A2 


39-45 rf 1 (archives militaires) 


22h25 FR 3 


LA GRANDE BOURGEOISE (voir 




CURIOSITES) 


22h30 TF 1 


COTE DAMOUR (La bourse qui rocke) 




GEORGIA (voir article 801 


Jeu 


di 9 mai 


20h30 C + 


LES PRINCES (mon pole leqilan) 
MANHATTAN (voir anicleXJ 


20h35 FR 3 


20h35 TF 1 


LES MISERABLES (sene nchel 


20h35 A2 


LA CUISINE AU OCUnnc ,Vou u^.ta/ 


21h30 TF 1 


L 'ENJEU (vive la sociale) 


22h00 A2 


3945 rf 2 


22ht5 C + 


UNE SI GENTILLE PETITE FILLE (gen- 




tilletl 


23h05 TF 1 


LE SEIGNEUR DE LA GUERRE (voir 




CURIOSITES) 


Vendredi 10 mai 


20h35 A2 


CHATEAUVALLON 


20h35 FR3 


PORTRAIT DUN PRESIDENT. Francois 




Mitterrand (le mythe errant sedentaire) 


20h35 TF 1 


CARNAVAL avec Patrick Sebastien 


21H35 C + 


J-AI LE DROIT DE VIVRE (voir CURIO- 




SITES) 


21h35 A2 


APOSTROPHES, De lecole a I'univer- 

site 

DECIBELS DE NUIT 


22h35 FR 3 


22M35 C + 


LAFFRONTEMENT (voir CURIOSITES 

80) 

ITS A GIFT (voir CURIOSITES) 


23h00 A2 


Samedi it mai 


20H35 TF 1 


LE DON DADELE (piece peu douee) 


20h35 A2 


CHAMPS ELYSEES 


20h35 FR 3 


DISNEY CHANNEL 


22M0 TF 1 


DROIT DE REPONSE 


22hl5 A2 


LES ENFANTS DU ROCK, Jambalaya 




(voir article)^ 


22h1S FR3 


DYNASTIE 


23h00 C + 


SCUM (excellent film sur t'univers carce- 
ral) 


Dimanche 12 mai 


19h00 A2 


ET LA VIE CONTINUE rf 1 (a suivre) 


20H35 TF 1 


LANNEE PROCHAINE SI TOUT VA 




BIEN (1981). Iilm (comedie) de J-L Hu- 




bert avec Isabella Adjani 


20h35 A2 


LE GRAND RAID 


20H35 FR 3 


HOMMAGE A FRANCOIS TRUFFAUT 


21h00 C + 


LA FEMME PUBUOUE (voir article)-^ 


21h35 A2 


LART AU QUOTIDIEN, Manger des 


22h30 FR 3 


BILLY THE KID (1934), film (western) 




de King Vidor avec Wallace Berry 



LE SEIGNEUR 
GUERRE 



Film (medieval) de Franklin 
Schaftner (1965) avec Charl- 
ton Heston. 

Les Fnsons debarquent en 
Normandie et lavaqenl lout sur 



leur passage Pas de panique 
ca se passe au Xleme Steele 
el la poudre a canon reste in- 
connue Chrysagon met en de- 
route I envahisseur [dehors les 
etrangets) Le due de Norman- 
die content |le Pen aussi) re- 
compense le preux en lui don- 
nant la seiqneune de la region 
devastee (bo'l. ce qui lui per- 
met desormais d exercer le 



Film de Roman Polanski 
(1979) avec Nastassia Kinski. 

Tess i Nastassia Kinski) est la 
fille de John Durbey'ieid mise- 
rable adorateur du dieu Alcool 
(In vino veritas). Envoyee chez 
ses cousins les nobles D Uber- 
ville (grands buveurs de the 
devant I elernel). elle devient 
leur employee de maison Se- 
duite et abandonnee par Alec 
D'Uberville, elle retourne chez 
ses parents pour mettre au 
monde un enfanl qui meurt en 
bas Age (mounr en collant 
Chesterfield aurait ete trop 
rhic) Deqoutee par sa famille. 





T as de beaux yeux. tu sais. 



elle choisit le lait (egouttei et 
s engage dans une laitene 
Mais le destin sacharnera sur 
elle. el tout cela sachevera 
dans un bain de sang (rouge. 
un pair et manque) 

Roman noir a lorigme de 
Thomas Hardy, la balade de 
Tess est un sinistra melo- 
drame que Polanski a trans- 
forme en drame lynque. Elu- 
dant I'horreur de I'histoire. le 
cineaste a accentue la dimen- 
sion romantique. naive et vio- 
lente. L'mtensite amoureuse 
est vecue comme souffrance 
inteneure. d ou le caractere 
tragique de I ttmeraire de Tess: 
les paysages anglais melanco- 
liques accentuent i emotion 
froide et intense qui parcourt le 
film. Flottant comme une 
ecume legere a la surface du 
mal. Nastassia, transcendante, 
mcarne de sa blondeur frele el 
de ses yeux bleus toute la gra- 
vite du film. 

Diffusion le 7 a 20h35 sur FR 
3. 



50< 60M (£HAAA 

LE BRUIT ET Lfl FUREUR 
la femme pubtique^ 




Film de Andrej Zulawski 
(1983) avec Francis Huster. 
Valerie Kaprisky et Lambert 
Wilson. 

Ethel iValene Kaprisky) a vingt 
ans et veut devenir come- 
dienne. Elle pose pour des 
photos de nu artistique" Pan- 
tin desarticule mais domina- 
nce, cesl elle qui mate les 
photo-mateurs amateurs Re- 
marquee par Lucas Kesiing 
(Francis Huster) metteur en 
scene talenlueux. elle accepte 
le role de Lise dans son dim 

L PS DG5SEDF5 rt'spree to 

roman de Dostoievski Suit 

une relation d'amour hame 
avec Lucas, avec un jeune 
gargon (Lambert Wilson) qui 
entretient des rapports ambi- 
gus avec Lucas, doublee dune 
sombre histoire de complot po- 
litique. 

Resultat des courses : La 
femme pubique (bisque rage) 
deviendra une vraie come- 
dienne mais aussi un etre 
bnse detruit par la folie de 
Lucas. La femme plus-bique a 
failli devenir chevre mais les 
autres y ont laisse leur peau 
(de bique). Bien que complexe. 



la transposition dans la vie 
reelle de faction dun film est 
un sujet passionant. Dommage 
qu il soil necessaire de connai- 
tre le roman pour apprecier le 
film Dommage encore que ce 
theme soit traite sur un registre 
hystenque Ires vite insuppor- 
table 




Je suis fou n oublie pas. 

Le tournage ful. parait-ti. a 
limage du film, la distinction 
jeu-reahte devenant de plus en 
plus tenue II reste une oeuvre 
pour personnes averties qui re- 
vele une grande comedienne. 
Valerie Kaprisky. sous toutes 
les couiures. 

Diffusion le 12 a 2!h00 sur C 



droit de cuissage (toul sexpn- 
que) 

Reconstitution parfaite du cli- 
mat medieval et de ses 
moeurs frustres. aussi ne vous 
attendez pas a une debauche 
de decors en carton-pale, ni a 
des heros hollywoodiens 
Diffusion le 9 en V.O. a 
23h05 sur TF 1. 



JAI LE DROIT DE VIVRE 

Film de Fritz Lang (1937) 
avec Henry Fonda et Sylvia 
Sidney. 

Eddie Taylor (H Fonda) sort 
de lauie el epouse immediate- 
menl lelue de son coeur, Joan 
[ce qui denote un masochisme 
incurable) En butte a Ihostihte 
de ses con-citoyens. il est im- 
plique dans un hold-up crimi- 
nal Coupable ideal il n echap- 
pera pas a son destin. 
Passionne par les rapports 
entre I'homme et la justice. 
entre le criminel et la societe. 
Fritz Lang realisa de nombreux 
films sur ce theme Celui-a est 
fun des moms optimistes Le 
choix d Henry Fonda, dont 
I image de marque etait la pro- 
bite, renforce I amertume du 
propos Inedit a la TV. et en 
VO 
Diffusion le 10 a 21h00 sur C 



LA GRANDE BOURGEOISE 

Film de M. Bolognini (1974) 
avec Catherine Deneuve, 
Laura Betti. Giancarlo Gian- 
nini. Marcel Bozzufi et Fer- 
nando Rey. 

Une 'amilie honorable est lob- 
jet dun scandale La bonne 
societe italienne en profile 
pour sacharner sur un de ces 
membres aux idees avancees 




Comment veux-tu que je 
t'embrasse avec ce machin ? 

Tire dun fail divers des 
annees 1900. le film sen- 
ferme dans une reconstitution 
glacee. Le parti pns d'esthe- 
tisme altere la force politique 
du propos i chiade.non ?). 
Diffusion le 11 a 20h3S sur 
FR3. 



En avant premiere du Festi- 
val de Cannes, je vous livre 
le Palmares televisuel de la 
semaine ! 

PALME DOR ; MANHAT- 
TAN 

MEILLEURE INTERPRETA- 
TION FEMININE : Nastassia 
Kinski (TESS). 

MEILLEURE CONTRIBU- 
TION ARTISTIQUE : 

Categorie musique : Jam- 
balaya 

Categorie costume : La 
femme publique 




Personne n'a 
encore trouve ! 




Avec 5 Jeux 


d'aventoros 


pass Ionian tn i 


i franca la. 




mores, plus 


5 Jeu. d'arca 


le, EUREKA a 


«je oceup« 


m tonguM 


soirees d'hlve 




8000 Fane. 


vac an 






250000 Trancs so 




rouveru le 


code d'EURCKA. 


voila bien 


de quo! v 




mr.g*, 1 




Per-sonne n'aya 




bonne reports e 


au J] Mars, 


date de c 


oture du 


concours, colu 


-cl a 616 


proroge juaqu' 


la fin de 




jusqu'a ce 


que quelqu'un a 


t trouvd 1 



M 

Adresse. 



Code Ville 



desire recevoir la cassette du jeu 
EUREKA pour : 

Commodore 64 I J Spectrum. I I 

Ci-joint 250 Francs en reglement de ma 
commande (Franco de port) 



Suite de la page 1 



THOMSON TO 9 TO 7 2 ? 

f-as de photo pour ce n engin 
'homson ne veut pas deflorer la 
Tiagistrale presentation qu< sera 
'aite le 6 Mai sur le Sicob Pour 
jne lots, nous n avons pas reussi a 
ecuperer des images de ia bete 
tiais rtous avons quelques mdica- 
•ions sur ses possibility, nos es- 
oions ne sont quand meme pas 
aussi nuls que ceux de Gorbatchov 
Le Tnomson T09. puisqu ii lau! 
1 appeler par son nom, nest gu un 
'fiomson T07 70 ameliore Le cla- 
vier de lype prolessionnel est se- 
part de I unite centrale et lui est 
'die par un cable torsade du plus 
bel effet. 32 Ko pour ta ROM el 128 
Ko pour ta Ram. ou plus exacte- 
ment deux pages switcnables de W 



pnx redri't'lO're ou T"omsnr devai' 
le vendre 

Le T09 n existe oas otficiellement 
avant Seotembre ce oui veut due 
gue vous pourrez vous en payer un 
en Novembre si tout va bien 



CESTLEPRINTEMPS 

Mais dites-moi ca s annonce pas 
mal du tout le pnniemps est la el 
les ordmaieurs Heunssent Bien 
qu aucune innovation technique 
n ag^'e 'e marche de secousses sis- 
miques ces quatre nouveaux 
engms remontent le moral la 
micro nest pas morte ' La ten- 
dance est meme tranchement en- 
thousiasmante quand on regarde les 
prix de vente d Atari et d'Amstrad 
Dans six mois ils vont nous vendre 
des 16 bits 512 Ko de RAM utilisa- 
teti' a moms de 2000 Irancs ' 



<$> 



or4 oettT 
IrtTWSS'GST 

LWT C& ,AJf7MS 
LETT& C " 

Ko Les innovations principals 
jendraient de 3 togiciels integres 
dont un agenda et un repertoire et 
surtout dun lecteur de disgueties 
Lniegre. double 'ace, double den- 
sity, 320 Ko formate pour les deux 
faces. Une trappe originate pou' en- 
r cher les cartouches de Rom 
completerait ce T07 - 2 qui ne re- 
volutionnera ni le marche mondial 
m le marche francais sunout au 




ET C EST PAS FINI 

Enfin, I'article est fini, pas les nou- 
veautes - la semaine prochame c'est 
le Sicob de Mai qui commence et 
les bombes preparers par les cons- 
tructors vont ecarter les voiles pu- 
dlques qui les couvrent aujourd'hui. 
Esperons que les petards ne seront 
pas mouilles 



Sm;e de la page 28 







Le resume de I'affaire peut se 
presenter ainsi : un mysterieux 
personnage, I'Ombte Verte, a 
enleve vingt jeunes femmes 
En echange. il exige qu on lui 
livre les trois plus grands pa- 
trons de la micro-informatique . 
Steve Jobard (Appoil). Jack 
Tramolo (Atrahi) et Clive Sans- 
clerc (Sansclerc). Apres moult 
perlpeties. je persuade Tra- 
molo et Jobard de maccompa- 
gner en Europe Ils profitent de 
loccasion pour emmener leurs 
prototypes afin de les presen- 
ter en premiere mondiale. 
Notre avion est detourne sur 
Cuba par un terroriste Moleski- 
nien. Fidel Monastorio. le dic- 
tateur. veut nous enfermer el 
conserver les precieux prototy- 
pes par devers lui Grace a ma 
vieille canne truquee. je neu- 
tralise Monastorio Nous nous 
echappons sur des velos dans 
la campagne cubaine. et nous 
trouvons refuge dans un mo- 
naster Je ne vois pas ce que 
cette histoire a de tres compli- 
que. 

- II faut quitter cette Tie d'ur- 
gence. dit Jobard 

- Ach ya ! Je peux vous aider ! 
Je suis l abbe Descochons et il 
n est pas dit que je laisserai 



des amis dans la Kolossale 
mouise. 

Je donneral mon beret contre 
deux litres de Kir que cet abbe 
est un ancien officier de la 
Waffen SS refugie ici a la fin 
de la guerre. J'ai le flair pour 
ce genre de chose. 
Descochons nous invite a le 
suivre. Dans le patio du mo- 
nastere, une immense table 
est dressee a meme le 
sol.(Mais peut-on dresser une 
table aitleurs que sur le 
sol ???) 

- Avant tout, ie vous propose 
de partager notre frugal repas I 
Quarante boules de billard cer- 
dees de couronnes de che- 
veux sont deja pretes a 
commumer de I'estomac. Notre 
venue ne semble etonner per- 
sonne. Nous prenons place. 
L'abbe Descochons va se pos- 
ter au bout de la table. La. il 
entre-ouvre sa tunique. en sort 
un homard qui y etait dissimule 
el entonne une litanie : 

- Moi je connais un homard sa- 
voureux et moelleux c'est le 
homard a I'americaine... 
Quarante voix clament a lunis- 
son : "AMENE !!!!!!" 

(a suivre...) 



A BAS LES AMATEURS, 
VIVE LES PROS 



Texas instrument redemarre a 
fond les manettes. mais dans 
ie haul de gamme C est moms 
fluctuant (qu ils disent) gue 
dans le familial Pour arroser 
cet heureux evenement. la 
lirme texane a lance le BUSI- 
NESS PRO" (plus PRO lu 
meurs) qui est un ordinateur 
compatible IBM PC AT avec 
512 Ko de cervelle bien fraiche 
et pas trop cuite Emballez-moi 



le tout dans du papier cello- 
phane et faites-moi un petit 




pnx aux alentours de 4000 dol- 
lars Merci Madame Texas Ins- 
truments, on est rudement bien 
servi dans voire echoppe 



TM PAS LA PHOTO, 
MAIS TEN PARLE QUAND MEME 



Broderbund n'avait pas sorti 
depuis fort longtemps de logi- 
ciels de jeu. Essentiellemen, 
axes sur le domaine profes- 

sionnel, les programmers de 
cette societe avaient quelque 
peu laisse tomber les memoi- 
res de nos chers micros. 




Mais un peu de patience valait 
bien ce qui nous arrive. Raid 
On The Bungeling Bay vaut 
son pesant de cellules gnses : 
ce superbe ieu darcade (des- 
tine a Apple. Amstrad, 
Commodore et Atari) vous em- 
porle en vitesse et en couleur 
a bord dun helicoptere meur- 
trier. Voire obiectif consiste a 
detruire huit usines installees 
sur huit iles. Quelle idee sau- 
grenue de bombarder des 
usines, me direz-vous. Pas de 
probleme : c'est une mission 
humamtaire : ces usines fabri- 



quent a tour de bras des batte- 
ries de DCA (Defense Contre 
les Avions. pour ceux qui ne 
connaissent pas), 'des radars, 
des chasseurs et des bombar- 
diers sans oublier des chars 
d'assaut. Vous commencez a 
piger lastuce ? II faut retourner 
les armes de ces destructeurs 
contre eux. De plus chaque 
usine est dune couleur diffe- 
rente des autres et est ravitail- 
lee par des bateaux de sa cou- 
leur Done si vous coulez les 
bateaux verts, I'usine verte ne 
pourra pas tourner faute de 
matieres premieres. Par contre 
si vous laissez les usines 
continuer leurs fabrications, 
vous aurez a faire face a i en- 
semble de la production de 
celles-ci 

En resume nous pouvons affir- 
mer que ce logiciel va faire ex- 
ploser les charts ("hit-parades' 
ne sonne pas vraiment plus 
francais a mes oreilles) dans la 
categone des jeux d arcade in- 
telligents. La strategie. si elle 
est mal conduite, ne pourra 
pas vous faire gagner Done 
aux meilleurs strateges el aux 
bons reflexes de sexpnmer ii- 
brement autour de cette ma- 
gnifique realisation tant dun 
point de vue graphique que so- 
nore 



MOI, ICONOCLASTE ? 



Icon Software propose de mul- 
tiples togiciels pour de multi- 
ples micro-ordinateurs. dont 
void une liste non exhaustive 
(mais ca vous permettra d evi- 
ter bien des depenses mutiles). 

Chrysalis permet aux posses- 
seurs de Spectrum, de MSX. 
de BBC et d'Eiectron de swin- 
guer com me des malades 
avec une chenille qui bourfe 
des pommes dans un verger 
tout en evitant des champi- 
gnons mortels. Super non ? 

Le cas de Frankenstein 2000 
(Amstrad. MSX, Spectrum. 
BBC) est moins net Ce i,eu 
d'aventure n'en est pas un, 
pas plus qu'un jeu darcade 
d'ailleurs En fait il est tene- 
ment ennuyeux quon se de- 
mande sil ne devrait pas etre 
vendu en pharmacie. categone 
somniferes puissants. 

Pour ce qui est de Contrap- 
tion (memes micros que Chry- 
salis) vous n'aurez pas d'hesi- 
tation : un Space Invaders 
sans le moindre doute. mais 
avec quatre ans de retard 

Caveman Capers n echappe 
pas aux critiques non plus : 
vous reconnaitrez immediate- 
ment BC's Quest For Tires, en 
nettement moins bien, malheu- 
reusemenl pour les MSX. 



BBC. Amstrad et autres Spec- 




Seul de tous a echapper au 
massacre. Phantom Zone 
vous emmenera. a bord de la 
voiture de Mad Max, dans une 
mission pire que toutes : survi- 
vre ou mourir Seul ce logiciel 
peut pretendre a se commer- 
cialiser honnGtement : bons 
graphismes (au moins sur 
Amstrad). mais une sonorisa- 
tion quasi inexistante et un 
manque de creativite quant 
aux incidents de parcours 
(monstres vus et revus). 

Pour ce qui est des autres 
litres, je ne vous infligerai 
meme pas un commentaire, 
c'est encore plus inexistant 
que ce qui precede 



WANG FAIT RIEN QU'A COPIER, 
MONSIEUR ! 



A leur tour les six usmes de 
production de Wang vont s ar- 
reter deux semames pendanl 
le mois de luillet Le dollar 
gnmpe et les commandes 
baissent Cest done pour evi- 
ler la surproducnon que les 
employes vonl lous se retrou- 
ver en vacances en meme 
temps Apple avail du prendre 
une mesure similaire durant le ^_^ 
mois de mars en termanl ses/^ 
usines huit |0jrs Decidement 
cest le marasme economiaue 
dans I informaliaue 




COMMODORE, 
LA CONCORDE REGNE 



Enlre Commodore USA. 
Commodore Europe. Commo- 
dore Angleterre el Commodore 
France, pas un attache de 
presse ne declare la meme 
chose. Pour ce qui est du pre- 
sident de Commodore Europe. 
il annonce la sortie couplee de 
deux nouvelles machines pour 
le mois de juin Des deux ma- 
chines que savons-nous : Tune 
ressembie a larlesienne (le 
Ci 28 1 et l autre ne s adresse 
qu aux professionnels (ou aux 
particulars fortunes). Le 
Commodore 900 offre. en 
configuration de base et pour 
30 000 francs, un processeur 
16 bits, compatibility UNIX. 
512 Ko de memoire vive ex- 
tensible a deux Megas un lee 
teur de disquettes 12 Mega 



une horloge interne perpe- 
tuelle deux RS 232 et une 
Centronics plus une IEEE 488 
sans oublier les quatre slots 
d extension, la possibilite de 
brancher un disque dur de 20 
a 67 Megas Bref la becane 
de course ! Mais juin. c'est 
vraiment sur. Monsieur 

Commodore 9 




PLUS SPRITE QUE LUI, 
AIE, AIE, AIE ! 



Les sprites. Voila une belle ob- 
session que e'en est une pour 
tous les programmers du 
Commodore 64 Eh bien nous 
qui vous causons dans le 
poste. nous vous avons deia 
fourni des utilitaires pour vous 
depatouiller avec ces lutms 



comme logique pour trouver un 
nom accrocheur. mais bon... 
Toujours est-il que si pa vous 
interesse. vous pouvez stocker 
336 sprites, les animer. les 
faire scroller dans tous les 
sens, les colorier. les incorpo- 
rer dans un programme 
basic. La seule chose qui 
metonne les concepteurs 
n mdiquent nulle part comment 




Mais des socieles parlaitemeni 
honorables se lancent et se re- 
lancent dans des editions muti- 
les. La preuve ; Anirog pro- 
pose pour la modique somme 
de 100 francs (en K7) ou 160 
francs (en Disquette) un edi- 
teur de sprites fort pertormant 
mais qui resle un editeur de 
sprites Son nom "> Sprite Ma- 
chine 64 msoupconnable 



integrer plus de huit lulins si- 
multanemenl dans un pro- 
gramme basic La derniere 
boutade d apres lediteur. ce 
programme est le must du pro- 
grammer debutant (ca peut- 
etre) mais aussi du profession- 
nel (alors la. . mon oeil ') 




Illndmo & 



la page pedagogique, 



la page pedag 



Le programme de monsieur Philippe DESMARTIN transformera votre CANON en veritable petit geographe. 



Mode d'empioi : 

Apres !e genenque musical. 3 options sont offertes 
1-FUSEAU 
2-GEOGRA 
3- FIN 

FUSEAU : les contmenls se deplacenl lentement vers la gauche [1 
tour en 20 minutes) et 2 sous-options proposees : 
1-Explique . lexplicatil defiiant peut etre stoppe par appui sur une 
louche quelconque 

2-Figure les fuseaux se dessinenl et le meridien dorigme est mar- 
que par O L'appui sur une louche permet le dep'acement des conti- 
nents, les deux meridiens rapproches represenlent le meridien op- 



pose a cetui d ongme. 

L'appui sur R renvoie au menu principal 

GEOGRA : apres generique musical, un point clignote sur le plani- 
sphere et les noms des villes possibles defilent a droile de lecran 
Apres appui sur M. lapez votre reppnse (attention a lorthographe) 
et validez par appui sur "," Utilise? ' " pour revenir en arnere en cas 
derreur L'appui sur O. permet a I'ordmateur de vous donner la 
bonne reponse 
S permet de contmuer et F ordonne le retour au menu. 

FIN : apres generique musical, arret du programme. 




En 1 ign* 210, 1* i.gnt 
correspond *u sign* * 



1 DEFINTA-Z:CLEAR1024: IN-0 

2 DIMA(31) ,Z*<4B) , X(48),Yt48> : CONS 
OLE, , , , 1 

3 ' <HHtMI-GEO**tt 

SUR CANON X-O? 

4 ' *P*r Phlllpp** ** DESMART 
IN** 

9 ER-l:GOSUB5000 

1 ' AMERI BUEDUNORD 

15 DATA128, 1,0,2,0,7,0,7,0,13,0,13 

, O, 10, O, 10, 0,17,0,20, 0,1, 1,11,1, 14 

,1,14,1 

20 DATA17, 1,20, 1,1,2, IS, 2,0,3,8,3, 

10,3, 13,3, 1,4, 13,4, 17,3, 19,3, 17,4, 

20,4 

23 DATA1.3, 14,3,17,3,21,3,0,6, 1,6, 

6, 6, 20, 6, 7, 7, 19, 7,6, 8,18, B.B, 9, 12, 

9, 13,9, 18,9 

30 DAT AS, 10, 12, 10, 13, 10, 17, 10,8, 11 

,17, 11, 7, 12, 17, 12, 7, 13, 7, 13, 11, 13, 

16,13 

33 DATA10, 14, 16, 14, 12, 13, 14, 13, 17, 

13, 18,13,14,10, 14,10 

40 ' AMER1SUEDUSU0 

45 DATA36,14, 16, 13, 16, 13, 17,21, 17, 

17, 18, 23, 18, 16, 19, 24, 19, 16, 20, 23, 2 

0. 18.22.24 

SO DATA22, 16, 23, 23, 23, 18,24,22,24, 

IB, 23, 22, 23, 18,26,21 ,26, 18,27,20,2 

7, 18.2B, 19 

33 DATA26, 18,29, 18,30, 17, 21, 23, 21 

60 ' EUROPE DEL ' QUEST 

63 DATA76,36,1,37,1,3S,2,39,2,33,3 

,40,3,34,4,33,4,37,4,40,4,34,3,33, 

3,38,3,40,3 

70 DATA31,7,32,6,36,6,40,6,33,7,40 

,7,32,8,40,8,33,9,34,9,36,9,40,9,3 

1 , 10,33, lO 

73 DATA36, lO, 36, 10,39, 10,40, 10,31, 

11,32,11,33, 11,33,11,37,11,40,11 

80 ' EUROPE DEL ' EST 

83 DATA32, 45, 0,53, 0,43, 1 ,61 , 1 ,39,0 

, 39, 0, 41, 2, 67, 2, 41, 3, 6B, 3, 4 1,4, 66, 



8, 4 



1,9,33,9 
95 "AS IE 

99 CLS 

100 DATA76,54,9,33,9,42,10,34, 10,3 
6, 10,36, 10,42, 11 ,53, 1 1 ,55, 11 ,55, 1 1 
,41,12 

105 DATA53, 1 2, 42, 1 3, 53, 1 3, 44, 14 , 52 

,14,45,15,48, 15, SO, 15,52, 15,34,14, 

54, 14 

110 DATA46, 16,47, 16 , 50, 16, 51 , 1 6, 46 

,17,46, 17,30, 17,50, 17,31, IB, 51, 19, 

32, 20,32,20 

115 DATA41, 14,41 , 14,41, 15,42, 15 

120 ' AFRI8UE 

125 DATA60, 33, 1 2, 34 , 1 2, 38, 12 , 40 , 12 

,31 , 13,40, 13,40, 14, 40, 14,30, 14,38, 

14,30, 13 

130 DATA39, 13, 30, 16 , 40, 1 6, 31 , 1 7, 40 

,17,34, 18,34,24,35, IB, 35, 26, 36, 18, 

36,26 

135 DATA37, 18, 37 , 26 , 3B, 1 B, 38, 25, 39 

, 16,39,20, 33, IB, 33, IB 

140 ■ OCEANTE 

145 DATA40.53, 18, 54 , 1 6, 56, 1 9 , 57 , 1 9 

.34,21,37,21,39,21,59,21,33,22,39, 

22,33,23 

130 DATA60, 23 , 54 , 24 , 60, 24 , 57 , 25,59 

,25,63, 23,63,23,62,22,62, 22 

170 RESTORE 15 

180 CLS 

190 F0RG-1T07 

200 READF 

210 F0RI-1T0F\4 

220 READA1 , A2, A3, A4 

230 LINEIA1 ,A2> - (A3, A4 I 

240 NEXTI 

300 NEXT 

310 IFIN-M THEN 1N-0: RETURN 

320 LINE C71 ,0) - (71 ,31 ) 

410 G0SUB2000 



GEO sur CANON -X07 



420 L0CATE12,0:PRINT*l*u***u* I :LOC 

ATE12, 1 : PRINT"2g»ogra- ; : LOCATE 12, 2 

:PRlNT-3f rtnet' 

423 LOCATE 12 , 2 : PRINT * 3cont 1 . " I 

430 L0CATE12,2:PRINT*3 + in "I 

440 A*-INKEY»: A-VAL IA«) : IFA<10RA>3 

THEN440 

443 0NAG0T0430,300,5000 

430 'FUSEAUX 

431 G0SUB2000: LOCATE 12, l: PRINT ■ !•■ 
pi It)' I : LOCATE 12, 2: PR INT "2+ igurfi 
433 FORG-OT031 : IFPOINT 10, G) THENA ( G 
I MEl.SEA <Gj ---o 

460 A*-' ■ :nextg:as*inkey«: ifa*-"r* 

THENGOT010 

461 IF A*-*l 'THEN265 

462 IF A«-'2-THEN2800 

465 F0RF-1T070:F0RG-0T031 : IFPOINT ( 

F,G)THENPSET(F-1,G)ELSEPRESET(F-1, 

BJ 

470 nextg:a»-inkey*: ifa*--r-thengo 

t010elseifa*»*l*thenz630elseifa*"- 

2-THEN2800 

473 NEXTF:F0RG-OT03l: IFA <G > - 1 THENP 

SET (70,G)ELSEPRESET 170,6) 

4B0 NEXTG:GOT04S5 

soo 'ceomondiale 
303 cls:print 

506 DATA22, 16 
4,23,2,24,2,2! 

SO? DATA34, 16 
2,30,2,32, 2,: 
306 0ATA27, 1, 
23,2,27,2,25 
309 DATA29, 1< 



29, 16,24, 16,24,4,24, 

,2,24,2,22, 16 

36,8, 29, 8, 29, 16, 29, 1 

, 12,34,4 

27, 4, 27,4, 29, 2, 27, 2, 

6,34, 16,36,8,29,6 

22, 16,29, 16,24, 16,24 



4 , 24 , 4 , 25 , 2 , 24 , 2 , 22 , 2, 24 , 2 



27,8,32,4,37,4,37, It 

29, B, 29, B, 29, 8 
34 , 8 , 32 , B , 30 , B , 29 , 8 , 
8,22,8,22,16 

T070:READA, B: 



510 DATA22, 1 6, 34 , 16 , 36 , 8 , 29 , 8, 29, ( 
,30,8,32, li 

311 DATA32 
, 36, 12, 37,4,36 

312 DATA34, 16 
27,8,24, 16,24 

317 rest0re506:f0ri 
beepa,b:next 

520 data* anchorage* ,4,5 

521 data-los angeles" ,8, 1 1 

522 datahouston, 14, 14 

523 datamexico, 13, 13 

524 datach1cag0, 13, 11 

525 datatoronto, 15, 10 
326 datamontreal, 17,9 
527 data-new york*, 17,11 

526 "jatauashin6t0n, 17, 12 

529 datam1ami , 16, 14 

530 DATA9UIT0, 16,23 

531 DATALIMA, 17,25 

532 DATASANTIAGO, 18,30 

533 DATABOGOTA, 18,22 

534 DATACARACAS, 19, 21 

535 DATACAYENNE.23,22 

536 DATARANAUS, 22,24 

537 DATA-RIO DE JANERO* , 24 , 26 

538 DATAPAR1S,33,8 

539 DATAMOSCOU.40,5 

540 DATAIRKOUTSK.49,6 

541 DATAALGER.33, 12 

542 DATADAKAR, 30, 16 
343 DATA-LE CAIRE',37,13 

544 DATAKAARTOUM.37, 15 

545 DATAADDIS-ABEBA.39, 16 

346 OATADJIBOUTI , 40, 16 

347 OATANAYROBI , 39, IB 

348 DATA'DAR EL SALAM* , 39 , 20 

349 DATAKIGALI ,37, 18 

550 DATA*PORT VICTOR I A ", 42 , 20 

551 DATAATHENES, 36, 10 

552 DATADAMAS,39, 12 

553 DATABAGDA0.4O, 12 
334 DATATEHERAN.41 , 12 
355 DATAK0WEIT.40, 13 

556 DATADJEDDAH.40,44 

557 DATAABOU-DHABI ,42, 15 

558 DATAKARACHI.44, 14 

559 DATABOMBAY,43, 15 
360 DATADELHI ,46, 13 

561 DATAPEKIN.53, 10 

562 DATABANGK0K.50, 17 

563 DATAHANOI ,32, 15 

564 DATAH0NG-K0NG.33. 13 



365 DATAHO-CHI-MINH-VILLE.S1, 16 

366 DATATOKY0.33, 11 

367 DATACAHBERRA.60,29 
568 DATAVLADIV0ST0K,61 ,7 
369 RESTORE320 

570 IN-1 : G0SUB13: RE STORE 320: FDR1-1 
T024:READAS,Q1 ,82:B*-'B**A«**-- 

571 z*(I ) =a»: ... i i i =qi : v ( J i -92: next 

575 FORI -1T024: READA*, 81 , S3 S C*«C»* 
A«+'--:Z«< 1*24) -AS: X( 1*24) -01 : Y( I* 
24) -82 

576 NEXT 

380 P-PO:PO-INT(RND(0l*4B) : IFP-PO 

THEN3B0 

SB3 Z»-Z»(PO) :X-X(P01 : Y»Y(PO) 

590 G0SUB2000 

591 R*-** 

594 LINE<71,0)-(71,31) 

393 L0CATE13,O:PRINT-VILLES":LOCAT 

E13, 2: PR INT- (H)ol*:L0CATE13,3:PRIN 

T*(0)rdi-| 

600 F0RI-lT0LEN(B«) : LOCATE 12, KPRI 

NTMID*(B*. I ,8) I :PSET (X, Y) 

603 IF TKEY CM* ) THEN700ELSE IFTKEY ( 

•0*)THEN750 

610 PRESET(X.Y) :NEXT 

620 FORI -1 T01.EN (C»i : LOCATE 1 ?, 1 :PRI 

NTM1D«(C«, I ,8) I :PSET (X, Y) 

625 IF TKEYCM*)THEN700ELSEIFTKEY( 
"0* I THEN7SO 

630 PRESET IX, Y) :NEXT 

640 G0T0600 

700 GOSU82000 

710 LOCATE 12,0: PRINT "-•pon»»? , | : LO 
CATE12, 1 :F"12:G»1 

711 SV-INKEY*: IFS*-' -'THEN711 

712 IFS*-". 'THEN720 

713 IFS»-" " -THENLOCATEF- I ,G: PRINT ■ 

* i :r*-lefts(R«,len(R*> -i > :f-f-i 

714 IFS»»" "ANDF< 12THfcNG=G- 1 :F«19 
713 IF S*-*~*THEN71 1 

718 LOCATEF.G: PRINTS* I :R*«R**S*:F- 
F*l:lFF>19THENF-12:G-G*l 

719 G0T0711 

720 IF R*=>ZSTHENGOT0800 

730 GOSUB2000:L0CATE12, 1 :PRINT" r» 
pons*' t : LOCATE 12, 2: PRINT* Uum* 

740 F0RI=1T0600:G0T0390 

750 G0SUB2000 : LOC ATE 1 2 , O : PR I NT " R*p 

on**: -i 

760 Z1S-MIDSIZS, 1,6) : LOCATE 12, 1 : PR 

INT21*! 

770 Z2S=MID*(ZS, 9,8) : LOCATE 1 2 , 2 : PR 

INT22*) 

780 Z3*-MID*(Z», 17, 7) : LOCATE12, 3:P 

RINTZ3SI 

790 FORI-1T01200:NEXT:GOT0900 

800 G0SUB2000 

803 l0cate12,0:print-b'i :l0cate13, 
i:print-r»i : 

810 L0CATE14,2:PRINT*A V*t:LOCATEl 
7, 1: PRINT -0 ' *( 

820 DATA29,4,23,4,29, 1 6, 29 , 1 6, 29 , 8 
,27,4,23,4,27,4, 29,6,23,4 

821 DATA22.4, 17,8,17,16,17,16,17,8 
,29,4, 23,4,27, 16,27, 16 

622 DATA27, 4, 23, 3,22, 3, 23, 3,22,4,2 

4,8, 24,8,24,8, 24,4,29,2, 25, 2 

823 DATA29, 1 6, 29, 16 , 29, B, 27, 4, 23, 4 

,27,4,29,8,25,4, 22,4, 17,6, 17, 16 

B24 DATA17, 16, 17, 12, 17, 4, 20, 8, 17, 4 

,20,4,22,4,23,8,29,16,29,8,27,4,23 

626 DATA22, 1 6 , 22, 16 , 24 , 1 6, 22, 8 , 29 
,4,23,4 

B27 DATA29, 16 , 29, 1 6 , 29 , B , 27 , 4 , 25, 4 

,27,4,29,8,23,4 

B28 DATA2 2,4,17,8,17,16,17,I6,17,8 

,29,4,23.4,27, 16, 27, 16 

829 DATA2 7, 8 , 25, 4 , 22 , 4 , 25 , 4 , 22 , B , 2 
4, 16, 24, 16,24, 16,24,8,29,4,23,4 

830 DATA29, 16 , 29, 1 6, 29 , 8 , 27, 4 , 25 , 4 
,27,4,29,8, 25, 4,22,4, 17, B, 17, 16 
B31 DATA 17, 16, 17, 12, 17,4,20,6, 17,4 
,20,4,22,4,25,8,29, 16,29,8,27,4,25 
,4 

832 DATA22. 1 6, 22 , 16 , 24 , 16, 22. 8, 29 

,4,23,4 

B33 DATA22, 16.22, 16,22.8 



840 rest0reb20: for 1 ■ 1 t01 19 : reada, 

B:BEEPA,b:next: 

900 g0sub20o0:l0cate12,o:print""7 

■I :L0CATE13, i: PRINT" (S)uil**! 
910 L0CATE13,2:PRINT" (F) »n. *l 
920 IFTKEY (-S-)THENSBO 
930 IF TKEY( "F* ) THF.N1 5ELSEGOT0920 

1021 Y*-* 1- AHtrlqu* du nord 2 
-AMtrlqut du aud 3-Europ* d* 1 ' ou 

1022 Y*-Y***4-Europ» d» 1 ' **t 3-A 
trlqu* 6-Ind» 7-Oc»*ni»* 

2000 'EFFACAGE 

2010 FORI-OT02:LOCATE12,I:PRINTSTR 

ING*(8, ■ *) *: NEXTI 

2020 LOCATE12,3:PRINTSTRING*(7, ■ ■ 

> I 

2030 RETURN 

2630 'EXPLICATIONS 

2631 A*-" 
2660 G0SUB2000 

2670 A*-'L«m lumui hor*lr*s ont 
■ ta criii c*r on n* ptut pn ut 1 1 1 

2680 A*-A»*'l " htur* *ol*tr* ou h*u 

r* vr*lt. Ill pirt«n»nt 1 * glob* #n 

24 pirti" 
2690 A*»A*+ ■ d* 13 di^rti d* lonoi 
tudt dans l**qu*lt«> I'lttur- i »q» ] 

2700 A*-A***m»». * 

2710 L0CATei2,0:Pfi!M s f'-HAPPi(.- , i 

2713 L0CATE12,2:PR1NT---:L0CATE19, 

2:print*--i 

2720 fori-1 tolen (avi 

2723 f0rj-1t040: next j 

2730 L0CATE13,2:PRINTMID*(A*,I,6) i 

2740 IFINKEY»-**THENNEXTELSE430 

2730 GOTO2720 

2800 ' i igu' • 

2801 A*-" 

2604 F0RI-0T031 : PRESET (71 , I ) : NEXT I 

7805 IN-l:G0SUB10 

2810 G0SUB2000 

2B20 L0CATE12,O:PRINT* Or) r»-*:LOC 

ATE 12, 1 : PRINT- tranche* I : LOC ATE 12, 2 

:PRINT*v*r* 1 ' *I 

2830 L0CATE12, 3IPRINT- outit'i 

2840 fORI-OT071STEP3 

2830 LINE( 1,31 ) - ( I ,0) 

2860 NEXTI 

2862 F0RI"31T033:F0RJ»27T03I : PRESE 

T ( I ,J> :NEXTJ, I 

2B64 LINE 132, 30) -134,30) ILINE (32,3 

0)- 132,27) : LINE- (34,27) : LINE- (34, 3 

O) 

2870 IFINKEV»«" * THEN2870ELSEG0SUB2 

000:GOT0450 

5000 'FIN 

5001 CLS 

5002 IFER=OTHEN5010 

5005 CLS:PRINT" Philippv DESMARTIN 

" : PRINT: PRINT* prtsente" , ' 

MINI-GEOGRAPHE- f 

5010 DATA41,4,37,4,32,4,29,4,25,4, 

29,4,34, 6,29,4, 32,4, 34,4,34,4,29,4 

,32, 16 

5020 DATA41 , 4 , 37 , 4 , 32 , 4, 29, 4 , 23, 4 , 

29 , 4 , 32 , 4 , 29 , 4 , 32 , 4 , 37 , 4 , 37 , 4 , 36 , 4 

,37,16 

5030 DATA41 , 4 , 44 , 4 , 44 , 4 , 4 1 , 4 , 37 , 8, 

41,4,37,4,34.4,37,4,4 1,4,37,4,32, 1 

6 

5040 DATA41 . 4 , 44 , 4 , 44 , 4, 41 , 4 , 37 , 4 , 

41 ,4,37,4,32,4,37,4,37,4,36,4,37, 1 

5050 DAT A4 1,4, 37, 4, 32, 4, 29, 4, 25, 4, 

29,4, 34,6,29,4,32,4,34,4, 34,4,29,4 

,32,16 

5060 DATA41 , 4 , 37 , 4 , 32 , 4 , 29, 4 , 23, 4 , 

29,4, 32,4,29,4,32,4,37,4, 37,4.36,4 

,37,16 

50BO DATA32.B, 32 , 4 , 32 , 4 , 34, 4 , 32, 6 , 

0,6,32,4,37,32 

5099 RESTORE5010 

5100 F0RI-1T0B4 

5110 READA, B: BEEPA, B:NEXT 

5120 IFER=1THENER-0:RETURN 

5200 CLS:PRINT:PRINT- Votr« wrvi 

t-ur " :print" voui Miut";ENo 



la page pedagogique 



la page pedago 



la page pedagogique, 



la page oedaao — 



Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Deja des mois que vous plan- 
chez, les uns grace au cours 
pratique, les autres sur les 
connaissances plutot theoriques 
(et rethoriques ?) de linformati- 
que en general et de la pro 
gfammation en assembleui en 
parliculier 

Pour celle semaine un grand 
mouvement de reflexion du cole 
du Z 80 du ZX 81. Mais les fa- 
naliques du 6502 de I'Oric ne 
perdent Men pour attendre : la 
semaine prochaine sera pour 
eux ! 

Depuis le debut nous avons eu 
les cours suivants : 

No 55— ->ZX8l 
No 56— ■> ZX81 
No 57 — > ORIC 1 . ATMOS 



No 58 - 


■■> APPLE 


No 59 - 


•-> T07. T07 70 


No 60- 


--> COMMODORE 64 


No6! - 


-> ZX 81 


No 62- 


-> ORIC 1, ATMOS 


No63 - 


•■> APPLE 


No64- 


•-> T07. T07 70 


No65- 


- > COMMODORE 64 


No66- 


-> 2X81 


N0 67- 


■•> ORIC 1. ATMOS 


No 68- 


--> APPLE 


No69 - 


••> T07. T07 70 


No 70- 


--> COMMODORE 64 


No 71 • 


-> ZX 81 


N0 72- 


-> ORIC 1, ATMOS 


No73- 


-> APPLE 


No 74 - 


--> T07. TO7 70 


No 75 - 


■-> COMMODORE 64 


No76- 


•>ZX81 


No77- 


•■>ORIC 1, ATMOS 


No 78- 


--> APPLE 


No 79- 


--> T07. T07 70 


N08O- 


--> COMMODORE 64 



Dun point de vue theorique. 
vous aurez deux parties dans ce 
programme d'affichage. La pre- 
miere gerera un affichage. quel 
qu'il soil, a I'ecran (souvent il 
suffit de se servir du sous-pro- 
gramme qui existe deja dans la 
ROM de votre micro). La 
deuxieme ressemblera a un ta- 
bleau a une dimension qui 
contiendra votre message, cha- 
que lettre etant rangee dans une 
case du tableau A partir de 
cette structure (encore elle. mais 
elle est partout en langage ma- 
chine !) de base vous aurez a 
choisir entre une routine qui ne 
vous servira que pour cet affi- 
chage specifique ou une routine 
qui pourra gerer n'importe quel 
message, dont celui qui vous 
preoccupe. 

Dans le premier cas il vous suffit • 
de compter les lettres du mes- 
sage et de realiser une boucle 
faisant exactement appel au ta- 
bleau autant de fois qu'il y a de 
lettres dans cet affichage. 
Dans le second, il vous faudra 
raisonner dun point de vue ge- 
neral avant de vous attaquer au 
cas parliculier qui vous inquiete 

En fin de compte je ne vous ai 
pas appris commenl realiser ce 
petit programme, mais j'ai es- 
saye de vous faire saisir a quel 
point un probleme inexistant en 
Basic peut devenir contraignant 
en langage machine. C'est pour 
cela que je tiens a vous repeter 
ce conseil (mille fois entendu 
peut-etre) que lorsque vous vous 
iancez dans la programmation 
en langage machine, vous 
devez dissequer voire probleme 
sur le papier jusqu'a I'obtention 
d'un algorithme transferable di- 
rectement dans le micro-ordina- 
teur. Fermons ici cette gigantes- 
que parenthese et revenons a 
nos questions plus general es 
sur la programmation en lan- 
gage machine. 

QUELQUES CONSEILS POUR 
PROGRAMMER EN LANGAGE 
MACHINE 

Dans lexemple precedent j'ai 
tente de vous faire saisir I'ex- 
traordinaire complexity qui pre- 
side a la conception dun pro- 
gramme en langage machine 
Nous allons essayer de ration- 
naliser un peu plus nos connais- 
sances de maniere a eviter de 
sombrer dans le gouffre du pro- 
gramme impossible a realiser ou 
a terminer. 

Ne vous effrayez pas devani les 

nombreuses etapes que je vais 
vous decrire, certames ne ne- 
cessiteront pas plus de quel- 
ques secondes pour etre fran- 
chies. 

1. Debranchez votre micro, pre- 
nez un stylo et beaucoup de pa- 
pier. 

2. Ecrivez en bon francais ce 
que vous desirez realiser. amsi 
que le but que vous cherchez a 
atteindre. 

3. Tenlez de separer votre pro- 
bleme en un ensemble de pelits 
problemes, sachanl que cha- 
cune des parties de cet ensem- 




ble devra repondre aux crileres 
suivants : 

a. poser un seal probleme 

b. etre (relativemenl) indepen- 
dent des autres problemes 

c. ne pas cacher un autre pro- 
bleme !!! 

4. Essayez d'etablir un ordre 
chronologique entre les differen- 
tes parties que vous aurez de- 
gage a I'etape 3. 

5. Etablissez un organigramme 
(ou ordinogramme) des differen- 
tes parties que vous avez 
creees, en respeclant t'ordre 
chronologique que vous venez 
de vous fixer. 

6. A partir de la, programmez 
sur le papier chacune des diffe- 
renles parties de votre pro- 
bleme. 

7. Rallumez votre micro et tes- 
tez chacune des petites routines 
que vous venez decrire. Deux 
cas se presentent alors : 

a vos routines fonctionnent et 

vous pouvez continuer (etape 8) 
b. au moins une routine ne mar- 
che pas ou ne fail pas ce que 
vous souhaitiez. Des lors vous 
devez effectuer une verification 
essentielle : avez-vous mal de- 
grossi le probleme (et de ce fait 
vous vous retrouvez oblige de 
reprendre a I'etape 3) ? Si vous 
n'avez effectivement qu'une 
tache a accomplir d'apres votre 
papier, reprenez votre program- 
mation sur le papier pour la cor- 
nger (et n'oubliez pas de 
comparer ce que vous avez a 
I'ecran avec ce que vous avez 
ecrit sur le papier). 

8. En vous basant sur votre or- 
ganigramme, construisez sur le 
papier le programme qui vous 
permeltra d'appeler chacune 
des routines que vous venez 
d'ecrire au moment voulu. 

9. Programmez sur votre micro 
et testez I'ensembie. Ca ne mar- 
che pas ? Revenez a I'etape 8 
et reprenez pas a pas votre pro- 
gramme (sur le papier toujours) 
pour essayer de decouvrir ler- 
reur. Ca ne marche toujours 
pas ? Reprenez voire organi- 
gramme (etape 4 et 5) et contrb- 
lez que vous ne vous etes pas 
abuse en vous lancant ainsi sur 
ce schema-la. 

10. Ca marche ! N'oubliez pas 
de sauvegarder votre oeuvre sur 
un support magnetique avant 
d'eleindre votre micro et de pro- 
filer d'un repos bien merite 

Dans la serie des conseils que 
Ion a plaisir a donner, mais que 
Ton trouve inutile de suivre. en 
voici de nouveaux : 

1. Garde2 la place d'introduire 
des commentaires dans vos lis- 
tings (si votre programme d'as- 
semblage ne permet pas la 
creation de lignes de REM) el 
commenlez-ie le jour meme ou 
vous le terminez. 



2. Conservez au momenl de la 
programmation la structure que 
vous vous etes fixe sur le pa- 
pier, sinon gare a la perte de 
temps lorsque vous chercherez 
le grain de sable qui bloque la 
machine. 

3. N'hesitez pas a resoudre un 
probleme de deux ou trois 
facons differentes. vous garde- 
rez la meilleure pour d'autres 
programmes. 

4. Tentez de programmer des 
routines a application generale 
et non specifique, vous ne serez 
pas oblige de la reecrire pour 
chaque cas parliculier. vous 
pourrez la transferer dun pro- 
gramme a I'autre. 

Vous vous doutez que si |e 
donne ce genre de conseils. ce 
n'est pas seulement parce que 
je rn'inspire d'auteurs celebres 
(Zaks ou Leventhal par exem- 
ple) mais aussi en me fiant a 
mon experience personnelle de 
ce sport mtellectuel qu'est la 
programmation en langage ma- 
chine. En effet. nen ne vous 
oblige a apphquer les methodes 
que je vous mdique. mais sa- 
chez que nombre de program- 
mers n'appliquent aucune 
structure a leur travail et se re- 
trouvent rapidement obliges de 
suivre pas a pas ce qu'ils ont 
ecrit pour en comprendre la Si- 
gnification 

Je me fais r effet dun vieux ga- 
teux a insister de la sorle. mais 
il me parait vraimenl necessaire. 
indispensable meme. que vous 
ne vous lanciez pas tete baissee 
dans la programmation sans 
avoir iranchi une seule des 
phases preparatoires qui lui sont 
utiles. 

Dorenavant vous alle2 pouvoir 
trouver quelques conseils de 
programmation sur des proble- 
mes classiques poses par les 
micro-ordinateurs Vous ne 
serez en aucun cas lenu de 
vous y fier Ce que je tiens a 
realiser. c'est vous faire toucher 
du doigt des regies qui se re- 
trouvent cycliquement dans dif- 
ferents cas de figure. J'irai 
meme plus loin : si un probleme 
se presente de telle facon que 
vous le trouvez insoluble, en- 
voyez-moi la description precise 
de celui-ci. [e pourrai peul-etre 
vous aider a trouver une solu- 
tion. 

Enfin un dernier point me sem- 
ble important a souligner : lors 
de l utilisation du langage ma- 
chine sur un micio-processeur 
donne par plusieurs personnes, 
vous pourrez decouvrir autant 
de methodes de programmalion 
que de programmers pour re- 
soudre un meme probleme Je 
pourrai meme dire qu un pro- 
grammeur chevronne pro- 
gramme un micro-processeur de 
maniere si personnelle que sa 
programmation est reconnaissa- 
ble entre loutes Nous pouvons 
considerer que son oeuvre est 
signee, sil a realise un pro- 
gramme entierement sur ses 
idees et a laide dastuces de 
programmation qui lui sont pro- 
pres 



L'ASSEMBLEUR PRATIQUE 
Langage machine... sur ZX 81 



Gauche ! Droite ! Gauche ! 
Droite ' Incroyable : le principe 
de lalternance democratique est 
aussi celui de la bonne marche 
des armees C'est a y perdre 
son liberalisme. pas vrai ? 

P'tits gars faut que j'vous dise la 
verite; ouvrez grandes vos es- 
gourdes. serrez les fesses, bom- 
be2-moi ies ecrans cathodiques 
et que j'voye pas un joystick 
sorlir du rang ! J'aime I'ordre, 
I'ordre et tout ce qui s'y rap- 
porte : ordonnance, ordonnateur 
et ordinateur. Compris ! Alors 
repos. 

Ouant a vous. vaste contingent 
des lecteurs de I'Hebdo, comme 
moi farouches partisans de I'or- 
dre dans la programmation et... 
dun |oyeux desordre dyonisia- 
que partout ailleurs, je ne vous 
proposerai aujourd'hui que la 
mise au pas du SCROLL du ba- 
taillon d'octets dociles de votre 
fichier d'affichage. Saurez-vous, 
ex-reformes et futurs exemptes, 
vous faire obeir de cette armee 
masochisle qui ne connait 
comme mouvement d ensemble 
que le CLS du Basic Sinclair qui 
laneantit ? Je suis la pour vous 
aider a gagner les seuls galons 
qui valent la peine d'en jouir... 

Gauche ! Droite ! Definissons 
d'abord notre objectif : un 
SCROLLING c'est un mouve- 
menl d'ensemble de la page 
ecran qui permet de decaler 
celle-ci dans une direction don- 
nee. Vous connaissez linstruc- 
lion SCROLL du basic de notre 
ZX qui, en meme temps qu'elle 
decale I'image d une iigne vers 
le haut, positionne le pomteur 
d'ecriture au debut de la vingt 
deuxieme Iigne de I'ecran. Nous 
laisserons de cote cette derniere 
fonction et nous nous consacre- 
rons uniquement a trouver le 
moyen d'obtenir un decalage 
global de I'image d'une ou plu- 
sieurs colonnes vers la gauche 
ou vers la droite. 

Gauche ! Droite ! Mais d'abord 
choisissons democratiquement 
notre bord : pile a gauche, face 
a droite et la tranche a Le Pen. 
Allez I Trois petits tours et. 
nous voila dans le camp majori 
taire. Reste a agir en bon politi 
que : analyser le probleme, defi 
nir une strategie puis rediger le 
texte qui sera ensuite soumis a 
lapprobation de la machine 

Sagissant d'un travail sur le fi- 
chier d'affichage (FA.) il est ne- 
cessaire de se representer clai- 
rement sa structure : 24 lignes 
de 32 caracteres s'achevant 
toutes par un octet code 118. et 
au debut du fichier : un octet 
code 118. La solution la plus 
simple pour obtenir notre effet 
de SCROLLING a gauche 
consistera a dupliquer a gauche 
chacune des cases du F.A mis 
a part les invariables octets de 
fin de Iigne (118). Nous utilise- 
rons pour cela un pointeur a 
trois iemps qui balayera le FA 
suivant le mouvement decrit sur 
notre schema : 

▼ ®o ®1 ©2 
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a. on pointe sur I'octet a dupli- 
quer (a partir de ai) 

b. on pointe sur la case ou le 
dupliquer (simple decrementa- 
tion) 

c. on pointe sur la case suivante 
(double incrementation et rede- 
marrage du cycle en a2) 

Ce mouvement tres simple per- 
met I'ecrasement des valeurs de 
la colonne 1 par les valeurs de 
la colonne 2. la substitution des 
valeurs de la colonne 2 par 
celles de la colonne 3 et ainsi 
de suite jusqu'a la colonne 31 
qui. exception a la regie jusque- 
la suivie, ne voit pas sa valeur 
ecrasee par un caraclere de fin 
de Iigne 1 18 mais doit purement 
et simplement disparaitre (carac- 
tere espace). On amorce de 
cette facon-la I'etfacement de 
I'ecran par un effet de sortie de 
I'image par la gauche et de de- 
gagement simultane par la 
droite. Tous les 118 doivent, 
quant A eux. rester bien en 
place : pour obtenir un decalage 
global de I'image d'une case a 
gauche I'operation devra etre re- 
petee sur les 24 lignes du F.A. 
Si Ton veut une sortie complete 
de I'image, ce dernier mouve- 
ment devra etre repete 32 fois. 
Rassurez-vous : avec i'assem- 
bleur tout cela va tres vite. 

C'est a ce stade de notre ana- 
lyse, avant de rediger le pro- 
gramme, qu'il convient d'exami- 
ner attentivement le mecanisme 
de notre scrolling afin den de- 
gager toutes les structures repe- 
titives, structures qui devront 
lendre vers un mouvement uni- 
que, vers une loi generale. On 
vise ici la simplification du pro- 
gramme, la concision de son 
ecriture. le gain de temps dans 
son execution. Dans notre 
exemple on peut retenir comme 
systeme dynamique principal le 
mode de balayage du pointeur a 
trois temps, c'est a dire que 
nous ne modifierons pas. tout 
au long de t'execution du pro- 
gramme, les modalites de son 
avancee dans le F.A. : un pas a 
gauche, deux pas a droite ! 

Nous aboulissons done au lis- 
ting suivant : 



f-H 



1" Ligne 
2' Ligne 



t_J 



Vous remarquerez que la seule 
entorse a notre regie de depla- 
cement a trois temps est due a 
I'ecrasement force de la valeur 
de la colonne 31 par le code 0, 
manoeuvre inevitable puisquon 
ne peut y dupliquer le caraclere 
118. 

Dans I'etat actuel de notre pro- 
gramme, si nous souhaitons 
chasser totalement I'image de 
I'ecran ii suffira d'inserer notre 
routine a linteheur dune boucle 
basic. On pourra aussi de cette 
facon regler a sa convenance le 
deplacement lateral de la page 
ecran ce qui permet des effets 
amusants. Nous verrons, avec 
le scrolling a droite, comment in- 
troduire directement ce systeme 
de repetition dans notre routine. 

Gauche ! Droite ! Le moment est 
bien choisi pour retourner sa 
veste, aussi basculerons-nous 
dans (autre camp sans plus tar- 
der. Scrolling a droite : il existe 
de nombreuses solutions per- 
mettant d'arriver au meme resul- 
tat, cependant par souci de sim- 
plicite et de ciarte il serait bien 
d'imaginer un programme exac- 
tement symetrique du prece- 
dent. Que les paresseux se re- 
tiennent malgre tout de 
contempler le meme programme 
et ses effets reflechis par un mi- 
roir judicieusement place ! Car 
la solution est simple ; elle 
consiste a prende le F.A. a I'en- 
vers, c'est a dire de commencer 
notre balayage a trois temps par 
I'avant-dernier des octets visi- 
bles a I'ecran sur la 24eme 
ligne. Vous constaterez aise- 
ment qu'on pourra alors rempla- 
cer de facon parfaitement syme- 
trique les INC par des DEC et 
inversement. Quant a la colonne 
a effacei il suffira de remplacer 
son ancien numero 31 par celui 
de la premiere colonne de gau- 
che n° 0. II nous reste encore 
une modificaton : linsertion d'un 
systeme de repetition automati- 
que qui chassera completement 
I'image de I'ecran; il sera 
compose d'un classique comp- 
teur et d'une non moins classi- 
que decrementation de celui-ci 
avec comparaison a chaque 
tour. Le programme se decom- 
pose done comme suit : 



Listing 2 
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Remarquez que la totalite des 

registres jusqu alors evoques (B, 
C. D. E. H. L) ont ete utilises. 
Nous atteignons deja les iimites 
de la capacite memoire du Z80 ! 
Sommes-nous a - la fin de nos 
aventures ? Non grace a la... 
Pile je continue, face jarrete... 
Ah i Alors a la prochaine ! 

Bernard GUYOT 



la page pedagogique 



la page pedagozi 



DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous I 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretentions pas que cette liste est complete et definitive etil est evident que nous y rajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes qui jouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs quinepeu- 
vent pas connaitre tous les logiciels disponibles. 

Les prlx sont, nous I'esperons, les meilleurs du marche et les a bonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a faire baisser les tarits des tournisseurs pour atteindre I'objectit que nous 
nous sommes fixe: ramener les prix a une plus juste valeur I 

Les classements sont falts en fonction de linteret du programme et ne tiennent pas compte des prix, 
c'est a vous dejugerde I'opportunite de la depense. N'oubliez quand meme pas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 



nouveau 



KRYSTAL OF ZONG 

De Taction el de I'arcade. le tout dans 
un meme programme Incroyable mais 
(merci les chceurs) A ne rater sous aucun 
pretexte (sauf avis medical contraire). 

UP'N DOWN 

Jamais vu de route pareille, et pourtant pa 
monte et ca descend comme les monta- 
gnes russes de la Foire du Trdne. 

TAPPER 

Un p'tit coup a servir. facile Cent grands 
coups ?Dur,tr6sduretpourtanl on yarn ve! 

SORCERY 

Voiia un jeu d'aventures qu'il est bon ! 
Pas de probieme de vocabulaire lout au 
joystick Et il est beau 

MACADAM BUMPER 

Le meilleur simulateur de flipper et avec un 
editeur de flippers. Pourquoi aller au cafe ? 



DEFEND OR DIE 

Le plus dingue des 
vous. et en stereo ' 



i d'arcade. chez 



MEURTRE A GRANDE VITESSE 

Uneenquetea260Km/hamenertambour 
battant. en vous basant sur les indices f our- 
ms avec ie soft. 

SERIE NOIRE 

Un veritable jeu de meurtre (Killer) entre les 
differents joueurs. Qui embrasserez-vous, 
tuerez-uous ou votere2-vous ? 

SURVIVOR 

Do I'avenlure, vlte et blen servie. en couleur 
et haute resolution, sans probieme com- 
plexe a resoudre survivre sera votre seul 
mot d'ordre 

MESSAGE FROM ANDROMEDA 

En voila un super jeu d'aventure. largement 
plus beau qu'un camion et encore plus 
largement passionnant 

FOREST AT WORLD'S END 

Le boul du monde a vos portes. juste apres 
le troisieme arbre a gauche. Un dedale 
d'aventures rocambolesques ou angois- 
santes. 

HOUSE OF USHER 

Claustrophobes eloignez-vous, cette aven- 
lure s'adresse exclusivement aux agora- 
phobes 

BCS QUEST FOR TIRES 

La course a I'echalotte prehisiorique. hen 
de tel pour rester en jam be ! 

LUNAR LEEPER 

Des tonnes de ferraille vous sautent des- 
sus, sachez les eviter pour mieux servir 
voire natale planete 

JAW BREAKER II 

Comme vous n'avez pas peur des plus gros 
que vous. defoncez ces dents qui vous 
guettent 

AQUATRON 

Defendre la Terre passe encore, mais net- 
toy er en plus les oceans, faut pas pousser ... 
A moms que vous ne soyez plus baieze que 
baieze I 

LE CRIME DU PARKING 

Resoudre une affaire aussi sordide et cra- 
puleuse que le meurtre d'Odile Conchoux 
necessite un sang-froid et un esprit deduc- 
tif ace res Seriez-vous la reincarnation de 
Sherlock Holmes ' 



SPY HUNTER 

VouspassezdelavoituredeJamesBondau 
bateau de 007. Un must du jeu d'arcade 

DARK STAR 

Partez a la rescousse de la Gaiaxie, 
sans peur et sans reproche Voire 
ecran n'y verra que du feu en plon- 
geant de planete en trou noir e! de 
combat spatial en hypetespace 

ZAXXON 

De I'arcade comme aucafe. Et large- 
ment plus abordable ' Un classique 
qui manquait au Spectrumiste averti 

PSI WARRIOR 

Des combats a coups d'energie psy- 
chique, des ballades en skate antigra- 
vi t e des dizaines d'heures de recher- 
ches avant d'atteindre la Source de 
tout le Mai Genial ... 

SPY VS SPY 

Retrouvez tous les documents se- 
crets, placez des bombes et partez le 
premier de ce pays surpeuple par les 
espions Un must pour deux joueurs. 

BOULDER DASH 

Depuis Lode Runner, les jeox d'arca- 
de vous ennuyaient ? Ce probieme ne 
se pose plus dotenavant ; vingt ta- 
bleaux et cinq niveaux pour passer 
des heures uniques 

MEURTRE A GRANDE 
VITESSE 

De fa venture, du suspense etde la re- 
flexion Un vial polar d'Agatha Chris- 
tie ou vous devenez Hercule Poirot 
Extraordinaire de subtilite et d'mge- 
nlosite 

XAVIOR 

Plus vite. toujours plus vite ! Des kilometres 
de pieces a fond les maneltes Heureuse- 
ment, pas de radar a I'hotizon et le comp- 
teur qui s'envole Waow, c'est le pied 
d'acier 

FBI 

Une bonne enquete vaut mieux que deux 
gangsters dans le dos, dans une impasse 
avec un reverbere en panne Un vrai bon 
polar 

3D FONGUS 

Le Pans-Dakar en avion, ca vous dit ? C'est 
tout pareil. on perd la piste, on s'emplalon- 

ne des rhinoceros, mais on se marre bien 

INVASION 

Des Aliens comme silen pleuvait. des dan- 
gers a tous les coins de la gaiaxie, de Tac- 
tion etdu sang-froid voilace qui vousguet- 
le des que vous prendre i les commandes 
de votre vaisseau 

COBRA PINBALL 

"Beau comme un camion" vous connais- 
sez "Splendide comme un flipper" vous 
allez I'apprendre avec ce super soft de 
course Du massage et du bourrage en 
quantite. d accord, mais aussi en qualile. 

BATTLE FOR MIDWAY 

Si vous avez la megaio gaiopante. precipi- 
tez-vous I'Amiral Fletcher, c'est vous ! A 
votre casque He 

FRELON 

Bande de petit salopards. vous n etes pas la 
pour frimer' C'est la guerre, el malgre les 
ennemis qui nous canardent, il faut aller re- 
pare' ce sacre ponl ! Le premier qui crie 
"Maman" a moo pied aux (esses ' 



SON DE COMMANDE A DECOUPER OU RECOPIER : 
SHIFT EDITIONS, 27, rue du Gal Foy 75008 PARIS. 

Nom/Prenom 

Adresse 

Ville Code postal 



LOGICIELS 



Ordinateurs 



Prix 



Ote 






TOTAL 

ix frais de port en recommande 

REDUCTION 10 % SPECIAL ABONNES A DEDUIRE 
N° tnnuiiE („>.i: •_■ • 



N° ABONNE (obligatoire) 



Montant 



+ 15,00 



MONTANT a payer .. 



date de la commande : 

nf» S „rflt q Jiw fe?us ne se,onl en aucun cas encaisses avanl la livtaison des logiciels com- 
mandes Cheque renvoye en cas de rupture de Stock 8' 



A logic ieie 


iin ■,:,!„ 






F logic «i e 
































E educaW 
























' n °ww* 







APPLE 
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A 4 




350 


I CRIME DU PARKING 
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F V 




100 


3 LODE RUNNER CHAMPIONSHIP 


:.: 91 


* J 


M 


27S 


4 BRUCE LEE 


on 


A J 


M 


289 


5SKYFOX 


DJBK 


A J 


M 


399 


8 SUMMER GAMES 


. s- 


A 1 


U 


440 


7 PARANOIAK 


DISM 


F V 


R 


390 
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H 
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8 EPIDEUIF 


:.. s» 


F V 


" 


390 


10 AXIS ASSASSIN 


,-, s* 


A J 


" 


MO 


IIBC'SCAJESTFORTIRES 


DBM 


A J 




1»0 


11 LUNAR LEEPER 


. Bf 


A J 




IM 


13AOUATRON 


net 


A J 




100 


14JAWSREAKER4I 


nsti 


A J 




190 


IS ONE -ON -ONE 


ns* 


A R 


H 


3ao 


1* AZTEC 


d :,-■. 


A J 


M 


350 


17 FLICHT SIMULATOR II 


OtSK 


* j 


R 


490 


II MASK OP THE SUN 


PISK 


A V 


R 


290 


19IFR. SIMULATEUR DE VOL 


DISK 


F J 


R 


3ao 


20 PINBALL CONSTRUCTION 


Ml 


A J 


u 


380 


11 CHOPLIFTER 


DBJM 


A .1 


•J 


300 


HMD HAT HACK 


n» 


A J 


M 


MB 
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1 SORCERY 


K7 


A J 


M 


110 


2 DEFEND OR DIE 


KI 


A J 




110 


3 MACADAM BUMPER 


10 


F J 




100 


4 MEURTRE A GRANDE 

VTTESSE 


K7 


F J 




180 


S SURVIVOR 


K7 


A J 




HO 


fl BATTLE FOR MIDWAY 


K7 


A J 


M 


190 


7 HOUSE OP USHER 


K7 


A V 




tio 


S FOREST AT WORLDS END 


K7 


A V 




99 


S MESSAGE FROM ANDHOMEOA 


K7 


A J 




99 


10 SERIE NOIRE 


K7 


A J 




145 













ZENJI 

Pasmal. les jeuxde reflexion. Bien. les jeux 
d arcade Super, les tableau* speeds Alors. 
le melange des trois, qu'en dites-vous ? 

RIGEL 

Explorez. cartographiez ce monde encore 
tnconnu pour en preparer la defense avant 
que les pirates nes'ymcrustent Puisdefen- 
dez-le 

SCORPIRUS 

"Argh !", pensez-vous . "qa va vraimenl 
trial. " Bien pense, car guider cette fichue 
bestiole dans ces sacres labyrinthes. ce 
n est pas de la tarte ' 

AIRBUS 

Plus vrai que nature le pilotage de eel Air- 
bus Avousdedemontrer que vous en etes 
digne ' 

HOVER BOVVER 

Imagmez une belle pelouse. mais alors vrai- 
ment super belle El imagmez que per- 
sonne ne la tonde et que vous pouvez 
subreplicemeni utihser une superbe ton- 
deuse de course 



si vous etes 

ABONNfS 

deduisez VOUS-MEMES 

vos lO % 

de remise sur 

le bon de commande 



lO % de remise pour 
les abonnes ! 
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1 REALM OF IMPOSSIBILITY 


::;-,.. 


« V M ■ 


J80 


3 LODE RUNNER 


MODULE 


A J II 


39 


3 LODE RUNNER CHAMPIONSHIP 


D5- 


A J M • 


ire 


4 BOULDER DASH 




A J M " 


IM 


5 PSI WARRIOR 


a 


A F J M - 140 


6UPN DOWN 


1 » 


A J M - 


180 


7 TAPPER 


: :■-. 


A J M ' 


180 


B SPY HUNTER 


a n 


A J M 


160 


9 SPY VS SPY 


K7 


A J M 


140 


10 COHAN 


DtSM 


A J 


330 


1 1 SEVEN CITIES OF GOLD 


nsn 


A V M 


380 


1 2 TOURNAMENT TENNIS 


DtSK 


A J M 


150 


13 RAID OVER MOSCOW 


K7 


A J M 


330 


14 SUMMER GAMES 


DISKUK7 


A J M 


380' 200 


15KRYSTALOFZ0NG 


KT 


A V J M * 80 


IS BATTLE FOR MIDWAY 


DISK/K7 


F J R M ' 200/150 


1 7 GHOSTBUSTERS 


DISKm7 


A J M 


390/ 149 


18 BRUCE LEE 


DISKouKf 


A J M 


730 


1SSPELUNKER 


Q '-,- 


A J M 


27S 


20 HYPER flWER 


K7 


F J M 


90 


21 WHISTLER'S BROTHER 


DJSK 


A J M 


275 


22 MR ROBOT 


K7 


A J M 


ISO 


33 DECATHLON 


DISK.'K7 


A J H 


130/130 


34 BEACH HEAD 


K7 


A J M 


149 


25 BLUE MAX 


K7 


A J M 


380 


38 PSYTRON 


K7 


A R J 


140 


37 MASK OF THE SUN 


D B* 


A V R 


340 


38 VOVAQEUR 


K7 


F V 


145 


29 CHINESE JUGGLER 


K7 


A J H 


95 


13 DALLAS 


: Si 


A V A 


330 


31 HOBBIT 


K7 


A V R 


210 


33 HOVER BOWER 


K7 


A J M 


130 


34 KILLER WATT 


K7 


A J M 


120 


33 ZENJI 


K7 


A J R 


M - 120 


38 AXIS ASSASSIN 


Dttj? 


A J M 


:iac 


37 ONE ON -ONE 


OtBH 


Ul 


380 


38 ARABIAN NIGHTS 


to 


A J M 


85 


39 FLIGHT SIMULATOR II 


yen 


A J R 


490 


40 PINBALL CONSTRUCTION 


:■■-:- 


A J M 


.180 


41 CMOPLIFTER 


MODULE 


A J M 


380 


43 HARD HAT MACK 


DISK 


A J M 


360 


43 ARCHON 


D 5-. 


A J M 


360 


ORIC 1 / ATMOS 








1 3D FONGUS 


K7 


F J 


140 


2 MEURTRE A GRANDE VITESSE 


K7 


F V 


ISO 


3AIGLEDOR 


K7 


r V n 


180 


4 MR WIMPY 


K7 


F J 


95 


5 DOGGY 


K7 


F J 


120 


8 SUPER JEEP 


K7 


F J 


140 


tHoeewT 


"■■ 


A V R 


IIS 


8 COBRA PINBALL 


K7 


F J 


140 


9 FRELON 


K7 


F J 


120 


10 LE C4AMANT DE LILE MAUDITE 


KI 


F V 


IM 


1 1 BIG BASTON 


K7 


F J 


130 


13 PSYCHIATRIC 


K7 


f J 


120 


I3TENOREPOULET 


K7 


FVI 


!70 


14 LANCELOT 


KI 


F J 


150 


1 5 TERMINUS 


K7 


F J 


120 


18 ULTIMA ZONE 


K7 


A J 


BB 


1 7 MISSION DELTA 


K7 


F J R 


Si 


SPECTRUM 








1 DARK STAR 




A J 


95 


JXAVtOR 




F J 


70 


3 BRUCE LEE 




A J 


150 


4 ZAXXON 




A J 


110 


5 MATCH POINT 




A J M 


91 


8 SABRE WUL F 




A J 


140 


7 UNDER WORLDE 




A V 


135 


3 Bt ACM MEAD 




A J 


190 


9 LORDS OF MIDNIGHT 




A V 


100 


10ATICATAC 




A J M 


BS 


1 1 PSYTRON 




A fl J 


M 


12 HOBBIT 




A V H 


310 


1 3 PAINTING JOE 




F J 


79 


14LOMBR1X 




F J 


BS 


15 VOX 




F L 


1*0 


16 3D MOVER 




F I 


180 


17 INTEHCEPTFUH COBALT 




F J It 


9S 


18 MANOIRD- GENIUS 




f A R 


HO 


TEXAS TI/99 








1 LUNAR LANDER 


K7 


FJI 


95 


2 DRIVING DEMON 


MODULE 


A J M 


Its 


3 AMBULANCE 


MODULE 


A J U 


no 


4 RABBIT RAIL 


MODULE 




IIO 


THOMSON 








SAUF SPECIFICATION CONTRAIRE TOUS CES LOGICIELS SO !■ 
COMPATIBLES MOS T07 AVEC EXTENSION 18K ET TO7 70 


T 


1 AIGL E DOR 


K7 


F V 


ISO 


2 FBI 


K7 


A J M 


190 


3 INVASION 


K? 


F J 


155 


4 AIRBUS 


V !.,■■■ 


F J M 


475 


5 ELIMINATOR 


K7 


F J M 


120 


6 PULSAR 11 


-7 


F J M 


140 


7 S1ANLEYM05 


K7 


J M 


140 


B SPACE SHUTTLE SIMULATOR MO 




F R J 


260 


8VOX 




F L 


ISO 


10YETI 




J M 


140 


11 LABYRINTHE SURVIE 




F V M 


too 


1 3 BACKGAMMON 




R 


170 


ZX81 








1 RIGEL 


K7 


F J 


95 


2 SCORPIRUS 


K? 


F J 


75 


3 INTERCEPTEUR COBALT 




F R 


'35 


4CR0CKY 
5 COBRA 




'' 


» 



QUIX 



APPLE 
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E4 FS 8D E2 EF 
E5 F4 AO F9 AO 
ES EE E9 F2 AE 
F4 F2 ES AO F3 
ES AO El FS E7 
F4 ES AO CO AO 
Fl F5 E5 AO F4 
E5 F2 F3 FB E3 



8810- 

5818- 

4B20- 
6828- 
6B30- 
4B38- 
4B40- 
5848- 
6B50- 
5898- 



4B70- 
46 78- 
4080- 



(•00) 

6BP0- («00> 

4B98- (•OC; 

6BA0- («00) 

6BA6- (*D0) 

6BB0- ♦"'3 

68B8- («10) 



4BC0- 


• 6F.. 


68C8- 


(S16) 


6BD0- 


(«3C) 


4BD3- 


(•AD) 


5BCB- 


(•OA) 


68E8- 


(SOO) 


6BF0- 


(•76! 


48FB- 


(*D6) 


4C00- 


(•6C) 


4C0B- 


(•7E) 


4C10- 


(•10) 


4C1&- 


(•E9) 


5C20- 


(•14) 


4C28- 


(•14) 


4C30- 


(•ID 


4C38- 


(•44) 


^Z4C- 


(*5C) 


6C43- 


(•3D) 


4C30- 


(«4A) 


6C58- 


(•37) 


4C40- 


*2B 


6C46- 


(«17) 


4C70- 


(•06) 


4C76- 


(S44) 


4CB0- 


(•06) 


4C8B- 


(•3F) 


4C90- 


(•09) 


4C98- 


(•31) 


4CA0- 


(»7E) 


4CA6- 


(•00) 


4C00- 


(•40) 


6C8B- 


(•47) 


4CC0- 


(•IB) 


4CCB- 


(•4B) 


4CD0- 


(•31) 


4CD8- 


(•32) 


4CE0- 


(•30) 


6CEB- 


(•4E> 


4CF0- 


(•SE) 


6CF8- 


(•38) 


4D0O- 


• 6E> 


6008- 


(•3E) 


4D10- 


(•40) 


6D18- 


(•OB) 


4D20- 


(•3F) 


6D26- 


(•41) 


6030- 


(•17) 


6D38- 


(•471 


4D40- 


(•It) 


6048- 


■ »3Ci 


6D50- 


(»07> 


4038- 


(»4B> 


4040- 


(•84) 


6D6B- 


(843) 


6070- 


<»2A) 


4D73- 


(888) 


5088- 


(«9P) 


4D83- 


(•29) 


6D90- 


'•48? 


6093- 


<»37i 


60AO- 


CCSF) 


5QM- 


( * 1 F i 



Suite page 26 



ALQUERQUE^^ 



Un damier et des pions, II n'en faut pas plus a votre 
vie et ses 16 KO pour se transformer en adversaire 
impitoyable ! 

Joelle HAAS 




ET$< OH fMa'T^. , 
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VIC 20 



J&< SAMS ««£•"» 

*' — ■ pi.e«|sM 



7V-f 



10 iMJi-LiBMlP 
20 P0)E 36379 -26 

- :i .i E=409£+7B C0=37888-4896 G-4896 H=0+^e=- 
40 LV=3 LJ=3 
50 BinP<25.i*Qflt3e^GB<5e>.Rfl' 38>.RD<30J 

IK24>,E<24) 
68 F0RI-8T04 P(0-E+I»3 NEXT 
70 F0RI-5T09 P<I>»E+66+<I-3)*3 NEXT 
88 F0P1-18T014 P(I>"E+66*2+<I-I8>*3 NEXT 
98 F0RI«15TO19 P<I>«E+3*66+<I-15>*3 NEXT 
l«g FQPI-28T024 P< I >«E+4*66+< 1-291*3 NEXT 
110 FORK-ITOS PERDB' r i,CO >,D<K>.E<K) 
115 D<K+12>—H(K):E(K+12)»-€CKJ NEXT 
117 FOPK=9T012 PERIiD'l- ■ . E ■' K i D<K*12>« 

-D(K>:E<K*12>*-E(K) NEXT 
120 DATfl.3. 6. 6 -9.69. 138,72.75.66. 132. 138. 

14 I . 63 . 1 26 ■ 1 35 ■ 207 ■ -3 • -6 • 1 32 264 
122 IifiTfl-69.-138. 129.281 . -66 ■ -132. 126. 

196.-63. -126.60, 195-0. 192. 8-189 ■ 

P. 123.0.57 
130 GETfi* IFfifO"O"THEN130 
140 PPINT'Tr FORT-0TQ5O5 P0KE4896*'T. 

65 NEXT 
150 GOSUB2340 
160 IFFFaTHENGO3UB590 
17P OOSUB190 00SUB598 OOTOlTe 
180 POKEP<24.0>- 160 
190 REM*JOUEUR* 
2B0 C-4 L"19 : G0SUB2S?8 
210 PPIHT"fl VOUSi"; 
228 GETRI IFRS=""THEN220 
230 PPINTR*. 

240 GETBI IFB*=""THEN240 
250 PRINTBt- 

260 GETC* IFC*=""THEN260 
270 PPINTCt, PRINT"*" 
288 D*RSCCR«>-63 fi*RSC<C*)-63 
298 IFD<0ORD>24THEN330 
300 IFR<0ORR>24THEN338 
310 IFPEEKCP(D>K>83ftNrPEEK<-P(D»K> 

211THEN538 
320 IFPEEKfP(fi)X>32HNDPEEK(P'R>K> 

160THEN530 
330 F0RKMTQ8 IFP<D>+B(K)>P(24>0FP< D'<* 

B'KKP'8'THEN350 
340 IFPCR)=P'D)+B(K)THEN409 
330 NEXTK 
368 F0PK-1T08 

370 IFP'R>-P(D)+C(K)THEHKJ«K GOTO440 
380 NEXTK 
398 GOTO530 

400 PEWHVRNCE PION JOUEUP • 
410 PGKEP<D>-PEEKCP<D>*1> ■ RiTSr IB 1 750 
420 IFPEEK(P<R>+l)=160THEHPOK£P<H>-2ll 

GOT0528 
430 P0KEP(R),83 PQKEP(fl>*C0-8 G0T0328 
440 REM**PRISE PION VIC** 
450 lFPEEK(PtB>+B<KJJ?O90ftNDPEEK(P'.D' 

+B< K J > >O218THEN530 
460 POKEP'D>+BCKJ.'.PEEK(P':D)+B<KJ'»r> 
470 POKEP'IO.PEEM.P^ + I > 
480 1FPEEK^P<R>+1>»160THENPOKEP'R'.211 

0070500 
490 P0KEP(fi>33 POKEP<RJ+CO-0 
500 C=l L«LJ GOSUB2570 PRINT"*" [FLJ3 

■14THEN1818 
518 LJ-LJM -OOSUB1808 
528 GOTO570 
530 C*4 L=19 GOSUB2570 
540 PPINT"ERPEURi « ' 
550 FUPI-1TO508 NEXT 
568 CM L«19 GOSUB2570 PRINT- 

WRflflRHARRRHRRflT' G0TQ178 
570 C"4 L=19 GOSUB2570 PRINT" 

WflfifiARRRRfiRRfiflW 
588 RETURN 

398 PEf1*STPflTEGIE-VIC 
600 RR=8 BB»0 DV=0 IV*0 AV=0 M»0 RD=0 



y CANON 

Suite de ia page 8 

870 CM(2)«CM(2) *DM ( 2, MM) + DM t 2, PM ) 

8B0 IFPOINT(CMtl) ,CM(2> 1»-1AND(CM( 

11 < >CL I 1 >0RCM(2> < <CL(2) ) THENG0SUB7 

70 

890 PRESET IX, Y J :PSET(CM( 1 > ,CM(2> > : 

X-CMI1 > IY»CM(2) 

900 IFQ(PM,NM)=CM(2) *CM(1> /100THEN 

PM*PM*l: IFPM=3THENPM=1 

910 IFCL ( 1 1=>CM( 1 >ANDCL(2)=CM(2)THE 

NX 110 

920 G0T0330 

930 S-STICK(O) : IFS=0THEN860 

940 0NPMG0T0950, 990, 1030, 1070 

950 IF (S=1ANDNM=4) OR (S=5ANDNM=1 ) TH 

EN860 

960 IF5=5THENNM=NM-1 : U= 1 :G0T0850 

970 IFS=1THENNM=NM*1 : U=- 1 : G0T0840 

980 GOT0860 

990 IF (S=3ANDNM=4I OR (S=7ANDNM=1 ) TH 

EN860 

1000 IFS=7THENNM=NM-1 :U*1:G0T0650 



PR=0 
610 FOPI=0TO24 

620 IP' PEE* 'P' I 'JOP123'O218THEN710 
630 F0RK=1T08 

£40 IFPCI -+B''K;>HOPPf I <*B'K ><GTHEN708 
650 IFP'I'*C'K)>HORP' I )*C<KKGTHEN680 
660 IF'PEEK'P'l -*h'Y :■ -"JP12S' :,21 lOP'PEEK 

CP<I>+CK5)OR12!5'^;.160TH£N680 
(-".70 ftR=RR+l Pti'RR>=P' I ■' PI'RR'=P'I -+B'K) 

Pfi(flfl.'aP(l>+CfK) GOTO700 
f38 IF'PEEK.PCI.'+B':IO)OR128K>160THEN700 
690 BB=BB*1 C'D''BB)=P< I > QA'BB 1= P< I i+B'K ' 
700 NEXTK 
710 NEXT1 
728 REIttSTRflT. PRISE* 

730 ifra'".ithen960 
748 fop:-;=itorr 

750 FOPK=1T08 

760 IFPD<X>+B<K»H0RPD<X>+BO '<GTHEN880 

770 IFPD<X>+C(K)>HORPD(X>+C<K) :GTHEH888 
780 IF<PD<X>+B<K?>*PKX>THEH8e« 

790 IF'PEE|VPII'X>+B'K ' > OR 128 >*218RND' 
PEEK'PD'X)*CCK>>OP128'=211THEN9"0 

888 NEXTI 

818 FORK"1T08 

§20 IFPKX>*BCK)>H0RPI<X)+B<KX6THEN«3e 

830 IFPI<X>+C'tO>HCiRPI<X>*C'"irKGTHEN850 

840 IF'PEEKtPltX;+B<KJJ0R128)=218ftHD 
CPEeKCPI(X)»C(K))0R128^"211THEH938 

850 NEXTK 

860 F0RK=1T08 

870 IFPfl<X>*B<K»H0RPfl(X>+8(K><GTHEN9te 

880 IFPflo: .-B'K:'>H0RP*H(X)-B'K>'".GTHEN910 

890 IF'PB<X>+B i ;K>)"P1<X>THEN910 

906 IF-,PEEK(Pfl«.XJ*B<K>J0Rl28)=211ftND 
■■PEEK'PR'X>-B'K i >fJP128> = 160THEN9:-:0 

910 NEXTK 

920 BV=PDCX) IV=PI(XJ RV=Pfl'X) GOTO1630 

930 NEXTX 

940 X=INT'RNDU >*flfl)+l 

950 DV=PD<XJ IV-PHX> RV-PR'X.) GUT01630 

968 REM*STRHT,flVRNCE* 

970 CC=0 V«0 

980 IFBB<1THEN1818 

990 F0RX*1T0BB 

1880 F0RK=IT08 

1010 IFQD(X)+B<K»HORODtX)+B<K.><GTHEN1040 

1020 IFQD<X>+C<K»HORQB<X)*C(K KGTHEN1048 

1030 IF^PEEK-:QDCX>+B<K))0R128>«218»«I 

fpEEK(M< P X)+C<K>>0P128>*211THENH28 

1040 NEXTK 

1050 F0PK=1T08 

1060 IFOR'X)*B<K>>HORGRCX'*B(KKGTHEN1100 

1070 IFQRtX)-B':K)>HORQFICA'-B''K><:GTHEN1100 

1080 IFCPEEKCQRCX >+B''i' ■ -uR12> :-=211RHB 

fPEEK<OR(XJ-B'.K)>OR128> = 160THEN1128 

1090 IFfPEEK(GRCX; + B i :K)J0R128"211RHrQR 

(X)-B((C)»QDU^TMEN1120 
1100 NEXTK 

1110 CC=CC*1 RDaC>-QD(X) RBtCO-QACXJ 
1120 NEXTX 
1130 IFCCUTHEIU600 
1140 F0PX=1T0CC 
1150 Z=RR<X'-RD<X) 
1160 [FRB<X>-Z>H0RRD<X)-2<GTHEN12ie 
1170 IF«:PEEK.(PD<XJ-Z>OF:128.'*;211THEN1210 
1180 F0PL=1T8CC 
1190 IFRDa'=PD<X'THENV=V+l SD<V)«RD<L) 

5R<V)»PB<-L) 
1208 NEXTL 
1210 NEXTX 
1220 IFV<1THEN13Q0 
1230 F0RX=1T0Y 
1240 n=Sfl'XJ 
1230 FOPZ=1TOV 
1260 IFZ»XTHEN1238 

1278 IF8ft<Z)»HTHENSV»SB<Z) RV=M 0OTO179B 
1J38 NEXTZ NEXTX 



1010 IFS=3THENNM=NM» 1 :U=-1 : G0T0840 

1020 G0T0860 

1030 IF IS=1ANDNM=1 1 OR < S-5ANDNM-4 1 

THEN860 

1040 IFS=5THENNM=NM* 1 : U=-I : GOT 0840 

1050 IFS=1THENNM=NM-1:U=1 :G0T0850 

1060 G0T0860 

1070 IF (S=3ANDNM=1 ) OR ( S=7ANDNM=4 1 

THEN860 

1080 IFS=3THENNM=NM-1 :U=l:G0T0830 

1090 IFS=7THENNM=NM*1 :U=-1 : G0T0840 

1100 GOT0860 

1110 beep 1000, 10:fora=1t0300:nexta 

:c=c-i:goto420 

1120 preset(x,y1 

1130 clsilocate 7, 1 : print-bonus "i 

e*5:stc=stc*e#5:e-e»1 

1 140 f0ra=16t056:beepa, 1 :beep72-a, 

l : nexta:fora=ito50o: nexta 

1150 CLS:G0T0420 

1160 F0RA=10OT0120:BEEPA,2:NEXTA 

1170 CLSILOCATE 3, 0: PRINT"VOTRE SC 

ORE "(STC*SCI 



1 298 

1380 
1310 

r:-:2P 
1 330 

i Me 

i 398 

1360 

: :^7P 
: J88 

1^0 
I486 
1418 
1428 
1430 
1488 
1498 
1 ! 08 
1585 

1 TO'- 

1518 

1528 

1521 

1540 
L545 
1538 



1579 
1 588 
1 598 

lr-00 
1610 
1628 

1 1 M 

1640 

i-ro 



1^30 
1 1 98 

i P88 



1730 

1740 
i "58 



l B l '"1 
1828 



1878 

i see 

i 198 



X=INT<PNH' l;*Vi+l BV»5D<X> RV=SB<X; 
GOTO 1700 
FORX*1TOCC 
F0RK«1T03 

IFPR'XJ*B'K/>M0PRR'.X'+B'K)':GTHENI36b 
IFPfl<X>*C'K»HORPR'X>+C'K><GTHEN1360 
IF'PEEK'PR'X>*B<KrirjR128)<:>2110R( 
PeEK<RR<X>*e<K>)0R12flX>168THEN136B 
DV"RLCX) RV*RR<X) GOTO1700 
IFRB<X>+B<K)>HORRB« K)+9<K>a3THEN148B 
[FRB<X>+C<K»H0RR0(X>+C(K><GTHEH1488 
lFrPEEK':RDCXJ'B'K)>0P128)<>2110R': 
PEEK tRD<X>*C: K.i .OR128)O218THEN1408 
DV«RD<X> -flVsRB(X) GOTO1700 
NEXTK 
NEXTX 

IFLV<14THEN1580 

IFLJ>12THENPRINT"«1RTCM NUL" ENB 
F0P::=1T0CC F0PK=1T024 
I ff ii- : i=P<fl)+DCK)THEN1521 
IFRD<X>*P<n>+E<K)TH£N132] 
NEXTt 

F0PL-1T024 

1FPRO: -=P':R **E' L ■THENBV=Pl" X • 
RV*RRi :■ ■ DOTO1708 
NEXTL 
NEXTX 

F0RX=1TCCC F0RK-1T024 
IFRD(X)<>P(fl^*E'K >THEN1568 
FC'PL=1T024 

IFRn<X>«PCfi>+D<L>THENDV*RB< ' 
hv=pr. :: ■ goto 1700 
NEXTL 
NEXTI 
next:: 
f0px=1t0cc f0rkmtq8 

IFRA<X>«P(ft>+BCK>THENDV«RD< K ■ 

BV=Rfl<X) OOT01788 

NEXTK 

F0PL-1T024 IFRB<X)"PCflJ+B<L iTHENDV" 

pii, ■■ , rv=pR' :: ■ ouTfiiro'i 
NEXTL NEXTX 
:;=INT'PHD' 1)*CC>+] 
rjV=PB':X) RV=Rfl',X) GOTO17G0 
X-IHT(RND( 1 »*BB»+1 
B7=QD'X> RV=OR<X) GOTO1700 
END 

REMWPPISE PION JOUEUP* 
POKEBV^PEE} CDV+1) POKEIV,PEEKi iv+l i 
I FPEEK < RV+ 1 .' = 1 60THENROKERV .218 
GOT 01 670 

POKERV.90 POKERV+CO.0 
C»21 L=LV 00SUB257O PRINT"*" 
1LV«LV*1 GOSUB1800 
IFLV>14THEN1390 
GOTO1740 

PEPI*RVRNCE PION JOUEUP* 
POKEDV.PEEK'DV+n 0OSUB17S8 
lFPEEK'flV+l)-160THENPOKERV.218 
GOTO 1740 

POKERV.90 POKEfiV+rri.tj 
RETURN 
PEM*SON» 

P0KE36873.15 PQKE36876. 220 
F0PI=1T058 NEXTI 
POK E36878 ■ 8 P0KE36876 - 8 
PETUPN 

FOPJ-1T03 0OSUB1730 NEXT RETURN 
REfl* JOUEUP OfWNflNT* 
PR I NT "H" P0KE36879.8 
P0I-E36873.23 

F0PU=128TO228STEP5 P0KE36873.U 
PPINT"VOU$ flVEZ GRGNE M" 
FORM* 1T01 38 -NEXTW 
NEXTU P0KE36878. POKE 36"- 75 
END 

REIWVIC C-RCMRNT* 
PPINT-T1" P0KE36379-3 
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♦ '■ 

PRINT" 



2030 PPIfiT- »******»♦*♦*♦" 

2048 F0RI=IT012ee NEXT 

2858 PRINT".T *PEGLE DU JEU* 

J06O PRINT"*rtlUS ET LE VIC RVEZ" PRINT" 

CHHCUN 12 PIONS. CLES •SON! R VOT: < 
2O70 PPINT"LE5- PIOUS PEUVENT AVfltlCER DBMS 

TOUTES LES DIRECTIONS I' ONE '.EULE" 
2OS0 PPINT"CflSE fi Lfl FOIS. 
:'0C J PPINT-ILS NE PEUVENT OCCUPERCUE 

PES CRSES VIBES." 
2100 PP INT "POUR PRENDRE UN PIOH REVERSE 

IL FRUT SflUTERRU DESSUS DE LUI ET" 
2110 PRIHT-RPPIVER DRNS UHE CfiSE VIDE 
2120 PRINT" POUR DflQNER IL FRUT 

PRENDRE TOIJS Lt'i PIOH': MlVEFrE; . " 

2125 PPINT"FPRPPEZ UNE TOUCHE" 

2126 C-ETRI IFfl$s""THEN2126 
2130 PPINT"n EXEMPLES " 
2140 PRINTTRB'2'" 
2150 PRlNTTflB<2)" 
2160 PRINTTRE'2'" 
2170 PPINTTRF^V 
2130 PPINTTRB' 2>" 
2190 PPINTTRB^'" 
2200 PPINTTRB<2>" 
2210 PRINTTnB(2V 
2220 PPIHTTRB<2'->" 
2230 PPINTTRB'2>" 
2240 PPINTTRB<2y 
2250 PPINTTRB^2V 
2260 PPINTTRB(2>" 
2270 PRINTTRB'2>" 

2280 PRINTTRB(2>" IS ■ K ■ a 
2290 PPINT"i01-E PERMET DE PRENDRE I' 

PRINT-M-KDE PRENDRE L" 
2308 PR1NT"F-K PERMET D'RVRNCkR 
2310 PRINT"PPET^ 
2328 RETURN 
2330 END 

2340 PRINT "-fflflR!W**aFH_l3UEP0UE§»*« 
2350 PPINT-R" 
2360 PRINTTRB(2J 
2370 PRINTTRBf2.' 
2380 PRINTTRB-'2^ 
2390 PRINTTRB(2' 
2400 PRINTTRB'2' 
2410 PRINTTflB<2< 
2420 PPINTTRB<2' 
2430 PPINTTRB'2J 
2440 PRINTTRBC2' 
2450 PPINTTRBC2> 
2460 PPINTTRB^' 
2470 PRINTTRB<2^ 
2480 PRINTTRB<2^ 
2490 PRINTTRB<2) 
2300 PPINTTRB'!'." 13 ■ S ■ a 

2310 PPIMTTfiBO)' 

2320 PRINT" »/0ULE2-V0US COMMENCER? 

2530 C-ETR* IFfl»=""THEN2330 

2348 IFRf="0"THENFFsl GOTO2560 

2350 FF=0 

2560 PP I NT " Tl*iRRRfiRfiRRRRRRRRFtRflRRRhS 

RETURN 
2570 P0KE781-L-I P0KE782C-I P0KE783J 

SVS63520 RETURN 
RERDV. 
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1180 LOCATE 3,l:PRINTAU TABLEAU * 
Ifll 

1190 LOCATE 0,3:RRINT"VO : -'L";j i/OUS 

REJOl'ER"! 

1200 IFTKEYt "0" I =-lTHENCL;:GDSUB12 

30:G0T0410 

1210 1BTKEY1 "N" 1=-1THENCL3:EMD 

1220 GOT01200 

1230 CLSILOCATf 3,0:PRiNT'l) POURE 

UITE" 

1240 LOCATE 3, I ! PRINT"2I SEMI HASA 

RD" 

1250 LOCATE 3,2:PRINT"31 HASARD" 

1260 IFTKEYI" 1 " »=- 1 THENJ = 1 : GOTO 130 



1270 IFTKEYt "2' )=-lTHENJ=3:G0T0130 

O 

1280 IFTKEYi "3" 1=-1THENJ=2: GOTO 130 



1290 G0T01260 

1300 CLS: RETURN 

1310 IFC=-ITHEN1160 

1320 F0RA=1T03:L0CATE 0,A:PRINT" 



■ ; : NEXTA 
1330 F0RA=8T016STEP2:LINE(46tA, A) - 
(80-A.A) 

1340 LINE- (SO- A, 34- A) : LINE - I 46*A, 3 
4-At 

1350 LINE- (46»A, A) : NEXTA 
1360 LINE (55,9) -(71,23) 
1370 LINEI7I ,9) - (55,25) 
13B0 F0RA=10T014STEP2 
1390 PRESET (63, A) : PRESET 163, 34-A I 
1400 PRESET (80- A, 17) : PRESET (46*A, 1 
7) INEXTA 

1410 LOCATE 15, l:PRINT-W 
1420 LOCATE 14,2:PRINT"CAR 
1430 LOCATE 15, 3: PRINT "R" | 
1440 LOCATE 5, O: PRINT "SCORE "JSTC 
1430 IFC-0THEN1470 

1460 F0RA«1T02*C-1STEP2:L0CATE A,l 
:PRINTCHRS(1291 I : NEXTA 
1470 BEEP60.4: BEER80, 4: BEEP100, 4 
1480 PSET(CL(1 ) ,CL(2) ) : PSET (CMU) 
,CM(2> ) 
1490 G0T0520 # 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 10 - 520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour letranger: + 80 F. pour 1 AN 

+ 40 F. pour 6 MOIS. 
NOM : MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE : PERIPHERIOUES : 

BUREAU D1STRIBUTEUR : REGLEMENT JOINT : □ CHEQUE □ CCP 



ZARBI GOLF 



Jouer au golf sur un ordinateur est assez peu ordi- 
naire. Mais si vous jouez au "Zarbi Golf" alors la. on ne 
repond plus de rien !!! 

Gael LOZAC'H 



20 ■- ZARBI-GQLF 

ju .................. 

125 ENT 1,106-*. 2 

130 ENV 2.16.5,3 

140 ENT 2. 106,-^.1 

150 ENV 3.125,2,2 

160 ENT 3,100,2.2 

170 ENV 4,20.2,2 

180 ENT 4.106,^.2 

190 CLS CLEAR 

266 GOTO 2350 

210 PRINT PRINT PRINT PRINT 



1* 



■,;* 



tie CALL IBB06 

230 IF INK£Y(34;-6 GOTO 2470 

235 T«6 ■ SCOREi 1 >-0 SC0R£<2)-u 

246 PRINTPRINT ! PRINT 

256 INPUT " nombra d« Jouturs <. 1 

ou 2)"iNB 
266 IF NB>2 OR NB<1 THEN PRINT CNR 
■(7) GOTO 250 
276 CLS' SOUND 1,166.100,7.6.1 

286 ' — — — ■ — . ii i li m a 

296 '-« OBSTRCLES « 

306 —-——.——«—.— 

310 SYMBOL FIFTER 227 

326 SYMBOL 241.61.94,53.94,61,94.6 

1,28 

336 SYMBOL 242,0.24.60.94,61.94.61 

,94 

346 SYMBOL 252.261,42,44.126,153.2 

8.42.73 

356 SYMBOL 251.153.189,255.255.255 

,231.247,255 

366 SYMBOL 250.26.139,76.40,43,212 

,56,24 

376 SYMBOL 229,6,0.0.24,66,62,234, 

255 

386 SYMBOL 238,0.0.0,8.28,126.91,2 

33 

390 SYMBOL 231,129.129.193,195,231 

,231,247.255 

400 SYMBOL 232,0.37,233,255.235,23 

1,63,255 

410 SYMBOL 233.60.60.0.60.60,0,66, 

126 

420 SYMBOL 235,62.28.26,28.28.28.2 

8.60 

436 SYMBOL 234.28,26,20.20,20.44.9 

6,253 

446 SYMBOL 236.26.126.251,221.93.2 

51.255,253 

456 SYMBOL 237,31,167.197,135,163. 

213.75.63 

460 SYMBOL 238,255.233,143,255,253 

.248,255.233 

470 SYMBOL 239.252.246,251,251,239 

.223.254,252 

488 SYMBOL 248.56.56,56,16.108,124 

; 124; 124 

496 SYMBOL 244, S6. 56, 36, 40, 56. 56. 5 

6.56 

500 SYMBOL 245.16,36.84,64,84,84,8 

4,120 

510 ........................ 

520 '-» ir.it n! n*t ion ■• 

530 ' ■■ du P*rcour» « 

540 ■ ..——«.-——.—-.-. 

S5B WINDOW •1,32,40,2.13 

560 WINDOW #2.1.9.2.15 

570 WINDOW »4, 1,40, 15,25 

580 WINDOW H3, 14.30, 1,6 

596 '-T+L IF 1-1 THEN 766 

600 PEN 2 LOCATE 1.1 PRINT " Jou«ur 

2 M 
610 LOCATE 31,1 'PRINT "Jou«ur 1" 
620 • ....................... 

630 '• Ftff ich*» a«» couP« - 



640 •——................... 

650 IF GAGNEUJ-1 THEN PRINT il.T- 
l,CHRH243>.ESSAISt 1 > ELSE PRINT • 
1 . T- 1 1 CHR»( 243 JfCHRit 32 ;+CHR»< 204 > 
666 IF NB-1 GOTO 690 
670 IF GAGNE<2)-1 THEN PRINT 112. T- 
l,CHR»(243> ( ESSAISt2> ELSE PRINI • 
2, T-l I CHR8C 243 J+CHRt < 32 MNRK tZ J I 

680 REM 

690 IF T>9 THEN 1720 

706 FOR JOUEUR- 1 TO NB 

710 ESSAISt JOUEUR j-0 GAGNEi JOUEUR ) 

-0 i MALUS-0 i BONUS-B GRING-8 

720 S-l D-2 F-2k-0 

730 CLS i4 

746 Y-19 

750 M-INTiRND*28)-»10 

766 N-INTCRND*23>»10 

779 IF N-M THEN 760 

780 O-INT(RNDS24)+10 
790 IF u-N THEN 700 
000 IF 0-M THEN 786 
B10 0«INT(RNDSlS;*ie 
826 IF 0-M THEN 816 

836 IF (T-4 OR T-6> AND N+4>39 THE 

N N-33 

840 IF (T-4 OR T-6) AND 0*4>39 THE 

N N-33 

830 IF CT-4 OR T-6 ) AND CM>-N OR 

M>»0> AND <M<-N+4 OR M<-0*4) THEN 

760 

860 ON T GOSUB 1590,1600.1616,1620 

, 1630, 1640, 1656, 1666, 1670 

070 IF T>1 TMEH PRINT #3, "PRRCDUR8 

"jTj" «v*c dn "'PRINT 63, A6 

099 INK 0,1'INK 1,18 PEN 1< PAPER 

900 INK 2,26 

910 LOCATE S.22PRINT "JOUEUR" ,JOU 

EUR 

920 LOCATE 1,20 

930 '———•———— 

940 '■— JEU 

996 ..................... 

960 FOR TERRAIN-1 TO 40 

970 PRINT CHRK 143), NEXT 

980 FOR I -6 TO 066- NEXT 

990 FOR I-F TO D STEP S 

1666 CLS #3 

1616 LOCATE 17,2'PRINT " 

1820 IF K-l GOTO 1506 

1636 IF GRING-t THEN Y-IB'LOCATE I 

-l.YPRINT " "LOCATE 1*1. Y PRINT 

" "'GOTO 1226 

1840 IF YU9 THEN LOCATE I-1,Y+1*P 

RINT " " 

1030 LOCATE I-l.Y-1 .PRINT " " 

1068 LOCATE I-X. 19. PRINT » ■ 

1678 LOCATE Fl+1,19 

1688 PRINT CHR»(2il) 

1090 LOCATE M.20PRINT " " 

1100 LOCATE M+I.1B 

1116 PRINT LHRiiilli 

1120 LOCATE M*l.l? 

1130 PRINT CHR«C246> 

1140 IF T>6 THEN GOSUB 2020. GOTO 1 

220 

1130 LOCATE N.P 

1160 PEN 3' PRINT &» 

1170 LOCATE 0,P 

1180 PEN 3. PRINT 88 

1190 IF T-4 OR T-6 GOTO 1220 

1260 LOCATE Q,P 

1216 PEN 3'PRINT Bf 

1220 LOCATE I.YPEN 2 

1230 PRINT CHR»U81> IF GRING-l TH 

EN SOUND 1,43- 1,1. GOTO 1288 

1240 SOUND 1,20+Y.l 

1230 IF K-INTCD/2) THEN ' 




1260 IF «2 THEN Y-2 

1276 IF YJ-19 THEM .-13 

1280 NEXT I'F-D 

1290 ...................... 

1300 - Position d« It bill? 

1316 '■ tPrfi le iet | 

1328 '— ———=—.*.. = ..=.. 

1336 IF i>>I1 THEN X— 1 S»-l GOTO 13 
56 

1346 X-l S-l 
1330 IF D-M THEN 1540 
1360 IF GRING-l GOTO 1430 
1370 IF CT-4 OR T»6) ANC D/=N HND 
D<"N*3 THEN 1550 

1380 IF CT-4 OR T-6 1 AND D>-u AND 
D<-0+3 THEN 1350 
1396 IF T>1 ANt> D-N THEN 1550 
1400 IF r>l AND D«0 THEN 1556 
1410 IF T>1 AND T04 AND T<. >6 AND 
0-8 THEN 1550 

1420 IF 0>M-3 AND CKM*3 THEN GOSUB 
2280 
1436 A-6 

1440 •————.=—... 
1450 -■■ JET — 

1460 ' ■■—-—————-—--—.—?. 
1478 IF INKEY145X>6 THEN 1476 
1480 IF INKEY..45.-U THEN 1490 ELSE 

1490 D-OtX'FOR >0 TO 20. NEXT GOSU 

B 1S56. GOTO I486 

1300 IF D>39 OR K-l THEN LOCATE 2 

.20'PRINT "TROP FQRTi" SOUND 3,200 

,206.6.1,1, 1 GOSUB 1850 MALUS-16 6 

ONUS-0'GOTQ 2300 

1310 E6SA ISC JOUEUR J-ESSA I Si JOUEUR.' 

♦ 1 

1326 GOTO 996 

1330 •■————■—— 

1548 GRING-0GAGNE( JOUEUR >-l LOCAT 
E 2. 20'PRINT "GAGNEH'^SOUND 4.1u. 
60,5,1, 1 GOSUB 1850 GOTO 2360 
1536 MALUS-ABS(M-D> 8ONUS-0' PRINT 
"PERDU! "'G03UB 1876 GOTO 2308 
1366 '——————=- 

1370 '-- PARCOURS I » 9 ■■ 
1586 '—■—————— 

1596 INK 3,6'P-19 B«-" "■ BONUS- 1 
RETURN 

1600 INK 3,25 P-19 B»-CHR*C229) BO 
HUS-2.fl8-"TAS DE SABLE ("RETURN 

1610 INK 3,18 P-28B8-CHR6C23U BO 

NUS-4.R8-"TR0US '"RETURN 

1620 INK 3, 11 P-28B»-CHR«i232)+CH 

RIC 232 >+CHR«i 232 J*CHR»( 232 > BONUS" 

12.A*-"PLANS D'EAU f". RETURN 

1636 INK 3,6 P-19 8«-CHR*<, 233 j BON 

US-6>A8-"MURETS )"■■ RETURN 

1640 INK 3,!5:P-lS'B*-CHft»(23?>+LH 

R§( 23B HCHR«C 23B ;*CNR»C 239 > BONUS= 

ll.fM-"TRONCS D'ARBRE" RETURN 

1650 P-19'INK 3, 19 . 8«-CHR»< 234 > L* 

-CHRX 235 > 1 D«-CHRtt 236 ) ' BONUS-B AS 

-"CHENES I "'RETURN 

1660 P-19 INK 3.Z0. B*-CHR»( 234 1 c 

•-CNRCC 24 1 ; . DC'CHRtl 242 > ■ BONOS-H A 

■-"SAPINS 1 "'RETURN 

1670 P-19. INK 3.10 8»"CHR«C 246 ; C* 

-CHR«C 244 ) ■ D8-CHR»< 245 i BONUS=« h» 

-"LHMPADERES '" RETURN 



SCORE' JOUEUR ■• "Points " NtXl JOUEUR 
1730 FOR S»l TO MB 

l.-4y IF SLOREvS; ..RECORD (HEN S'ttOF' 
D-SCORE' S > 
1750 NEXT S CLS »4 
1760 PEN 3 PRINT 04)*" KECOR 

D..."- RECORD 
1770 PEN 2 

l^SW PRINI LOCHTE 1 1 . iy PRINT " vo 
US rsjousr T?" LOCATE 13,12 PHHI 
- C ' N )" 

1790 T*-INKEY* IF TS-'O" UP T*«"0" 
GOTO 235 
1800 IF T*="N" OR Tie'Ti" THLN CLS 
END 
1610 GOTO 1790 

1830 '-■» OBSTACLE HEURTE == 

1840 ' :*c:;3i;s:3EE3Bi=c±3E 

1850 LOCATE M.Y PRINT " "-LOCATE M 
,Y*1 PRINT CHR»C131* 
I860 FOR 1=0 TO leee-NEXT RETURN 
1878 IF T-4 THEN LOCATE D. 19 PEN 3 

PRINT CHRSC256* SOUND 2.25,56.5.0 
,1,25 GOTO 1910 
1880 IF T-3 THEN LOCATE D. 19 PRINT 

" "■ LOCATE D.20 PEN 3 PRINT CARS 
«251> ENT 1,100.2.2 SCUND 1,108.10 
0,7,0,1 'GOTO 1910 
1890 LOCATE D. 19 PEN 3 PRINT CHFW 
252 > 

190e SOUND 4,284,36,5.1.1.26 
1910 FOR 1-0 TO 1000 NEXT. RETURN 

1920 ' — - B.Hfl — a a =..== = = 

1930 '-=• *.fich*«« du JET - 

1956 A-R*l 

1960 IF GRING-l THEN J»-" dm "ELS 

E J8-" m«tr«» 

1970 PEN 2 LOCATE 5,25 PRINT "JET 

d*. . '■."[".KrT'.JS 

1980 RETURN 

1996 ' ———■■■-■-■-— 

2000 — PARCOURS 7.8.9 ■• 

2010 ..».........—...=■ 

2020 PEN 3 LOCATE H*19 PRINI 6* 

2038 LOCATE N.18 PRINT C* 

2040 IF T-9 THEN PEN 2 

2030 LOCATE N.IT PRINT DS 

2060 PEN 3 

iS7\d LOCATE 0.19 PRINI fc» 

2060 LOCATE 0.18 PRINT C* 

2696 IF T-9 THEN PEN 2 

2100 LOCATE 0,17 PRINT DS 

2110 PEN 3 

2120 LOCATE Q. 19 PRINT B- 

2130 LOCATE 0.18 PRINT C« 

2146 IF T-9 THEN PEN 2 

2158 LOCATE 0, 17 PRINT DS 

2160 RETURN 

2170 '_ 1. — — 

CRfcEN 



FIN 



ocJDjb^ "£t^ 



1726 LOCATE 13-1 PEN <L PRINT "SluR 
E FINAL" FOR JOUEUR-1 10 NB LOCATE 
9,2+JOUEUR PRINT " jou«ur" , JuUEUR. 



219< 



2210 GRING-l PEN 1 F-UR J=19 Tu 20 
FOR TERRAIN-1 TO 46 LOCATE TERRAIN 
•J. PRINT CHRSC143* NEXT NEXT 
2220 IF D/M THEN M=INT< RND*5 >+<"■ F = 
38D-39PEN 2L0CATE M-l, IB PRINT 
CHRSC138) LOCATE M-l. 17 PRINT L MRS 
(138.1 LOCATE H-1.16 PRINT CHR«. 1 IS 
> PEN 3 LOCATE M-l . 15 -PRINI CHKS' I 
47) 

2230 IF D'.M THEM M=INKRND*5 )»32 F 
-2 D-3 PEN 2 LOCATE M+l, IB PRINT C 
HR*( 133 >• LOCHTE M«1,17PRINT CHR*i. 
133) LOCATE H+1.16 PRINT CHR* 133/ 



PEN 3 LOCATE M.l . 15 PRINT CHR St 24 
6* 

2240 LOCATE M,19 PRINT " " 
2230 PEN 2 

2260 IF D<.M THEN LOCHTE 1.18 ELSE 
LOCHTE 39,10 
2276 PRINT CHRf. 181 ) 
2286 RETURN 

2290 '•— - SCORE ="== 
2300 SCORED JOUEUR »-SCORE< JOUEUR '-M 
ALUS+BOMUS* 1 0-ESSH I S< JOUEUR ) 
2310 NEXT JOUEUR GOTO 590 
2320 '■———..—«.— 
2330 '— PRESENTATION « 
2340 ' ■■■■■■■■■ ■■■■■■■■■■ 
2350 CLS BORDER ll^INK 2.6PEN 2 L 
OCATE 14, 5- PRINT "9«fl L02ACH" LO 
CATE 16.8'PRINT "Pre»«nt»" PRINT F 
RINT^INK 1,21 PEN SPRINT " 

2 A R 8 I -GOLF " ■ PEN 2 
2360 FOR MUS-1 TO 33 
2370 READ MUSIQUE 

23B0 DATA 106.85,80,70,70.70.75.70 
,75,70,76 

2390 DATA 100.86,75.65,65,65.70.63 
,70,65.65 

2400 DATA 97,68,63,53,53,53,60.80. 
75,68.68 

2410 SOUND I.MUSIDUE. 14.5 
2420 NEXT 
2430 GOTO 216 
2448 ' a....-..-.——.... 
2436 — INSTRUCTIONS « 
2468 ' ———■■■.-....■ 

2470 CLS PEN 2 LOCATE 13,2 PRINT " 
votci Its r«9t«i. . ." 
2460 PEN 1 PRINT. PRINT'PRINT ■ VO 
US ETES SUR LA PELOUSE D'UN GOLF 

DE 9 TROUS. MAIS UN GOLF TRES Bl 
ZARRE < . EN EFFET VOTRE PARCOURS 
EST PARSEME D'EMBUCHES I " 
2498 PRINT PRINT PRINT " A CHAOUE 
TROU VOUS DEVREZ EVITER LES O&bT 
ACLES INSOLITES PLACES SUR VOTRE 

CHEMIN I .SINON I " 

2300 PiN 2 PRINT PRINT. PRINT " t*P 

tz un« touche" 

2510 CALL H.BB06 

2320 CLS PEN 2 PRINT PRINT " LE 

BUT DU JEU EST DE METTRE SA BALLE 

DANS LE TROU INDIOUE PAR UN DRAPEA 

U.ET CELA EN UN MINIMUM DE COUPS 

2530 PRINT PRINT "VOTRE BALLE EST 

A GAUCHE AU DEPART. 

2340 PRINT PRINT "POUR LHNcER CELL 

E-Cl VERS SON BUT, IL VOUS SUFFI 

T D'APPUYER" 

2550 PEN 1 PRINT " SUR LA TOUCHE C 

J 3" 
2560 PEN 2 PRINT PRINT " LA C'URfcE 
DE L'APPUI SUR CETTE TOUCHE. DETE 
RMINE LA LONGUEUR A LAOUELLE VOUS 

LANCE2 VOTRE BALLE" 
2576 PRINT " POUR VOUS AIDER, VOIR 
£ JET EST AFFICHE. A VOUS DONC DE 
BIEN DOSER VOTRE EFFORT 1 ( U pr»n 

cip* est le mem- lors^ue vous «tes 

sur I* GREEN. /" 
2580 PRINT "AVANT DE JOUER. SACMEZ 
QUE '"'PEN 1 PRINT. PRINT "LR LONQJ 
EUR TOTALE DU TERRAIN EST Dt 39w " 

PRINT "ET CELLE DU GPING 3.9n" 
2596 PEN 2 PRINT " tlPrl un« tou 
ch-" 

2600 CALL t8B06 
2610 CLS GOTO 246_ % 

POtff? POMPIDOU 

esr-cr^u'riE^r 
ertco&t temps:. 



LUNAR II 



Une fois encore, les dangers que devra affronter votre 
jeep lunaire, reclameront de votre part enormement 
d'habilete, ce qui n'est sans doute pas pour vous de- 
plaire. 



Christophe LEFRIEC 



Mode d'emploi : 

Avant de taper le programme, laire 10 IMP D$ et repondre par "" 
Cela permet d'obtenir la representation de la volture en I air. Le pro- 
gramme demande un DEFM 2. 

Scenario : apres atterrissage du LEM en douceur, vous allez devoir 
decouvrir. au volant de votre Jeep, les environs du site Vous devrez 
faire attention : 
aux crateres : - - 
aux mines : t 
aux rochers : O 

Sautez les obstacles en appuyant sur "N" Les rochers sont disinte- 
grates grace aux boucliers (leur nombre est atfiche), par appui sur 
"SPC". Vous pouvez accelerer ou ralentir avec les touches " " et "Z" 
(le temps de reponse est partols long) A chague fin de mission, 
vous relrouvez votre base # B# et en vous arrimant devant celle-ci 
jusqu'au point de depart, vous recuperez 5 boucliers La longueur et 
la difficulty des missions, pour lacces au grade supeneur sont pro- 
ponlonnelles a la connalssance des lleux Vous disposez de 2 vehicu- 
les au depart et en gagnez 1 a chaque moniee en grade 
Faire SAC avant le premier lancement. 




PBt 1411 STEPS 

1 60T0 ;3:f::illt 
tttttttf 

2 tltC-LEFRIECtlt 

: hhebmoIcielK 

i 111118 335(111 
5 Mttttlitltlttt 

13 SSB 286 
26 FPJ MNP "CIFFi 
CULIE !1-5):",L 

22 IF L>5 THEN 28 
24 9=18tINI ((H) 

»2!tP=lNI !1.'L) 
*3:P=1'L 
26 PPT "P,ECB8D « 6 
RnXEi'ilHIiSX 

28 (l=JiS=6iftl="«" 

23 FEI :PRI "(«;; 
{(PREI)»»))"1 

38 IF KEV="" THEN 
38 

32 VI=RIM=8t8=l:5 
=6:F!=""IPRI 

33 *=" 

— --tp.2l+rt5t 

34 FOR 1=1 TO 13 
36 t=ni5C2,28-lj:P 

R! CSR BlNIDd, 



14)!"/ "tlllRiC 

SR tiitl 
38 If Ft="i"!PRl C 

SR8*3iFt;-.6SE 

128 
46 I=,'-l:S=S»INI 1 

C8-'5!t3 
42 TS=KEYUF It=" 

!60T0 43 
44 IF Tt=ViIF B( 

ie;B=B+l:60TQ 5 

46 IF It="2"MFB) 
l;B=B-l'-G0TO 55 

48 IF Ji8 THEN 58 

58 IF T!= - N"iV)=DI 

: J=3:SDT0 5? 

52 IF Tit" " THEN 
56 

54 IF t-DH--")":? 
RTCSRE*3!Ft;: 
R=R-1 

55 IF kt THEN 53 

56 V«=RI 

57 !t=«ID(6«.2)M 
F TJ<"--" THEN 
82 

58 HEXT I 

68 IF Oil! THEN 78 



62 0=6M$=flI»(6»4, 
i;:a=GH.'INT Ll 
L=L+F 

64 IF T*=-f-:R=K*5 

:S=S*INT (RRNtt 
56! 

65 IF S/2HNT (J/2 
! THEN 68 

66 PRT :«HIT 38tFR 
T 'SRNCE SUPER1 
EK*:r=f-.|i«=ll 
H 

68 60T0 32 
76 FOR l=e TO 1 
72 H=INT (FR8C (fl( 

INT 3)/|tt(|l-0 

:>«13:0=fJfl 
74 IF 0=ll;}=tf-- 

-IBI":6vT0 78 
76 !-!•'! II 
78 KEST I 
86 R*.5:S=S«!68 

TO 34 
32 IF TI=" t" THEN 

38 
84 IF !*="i " THEH 

58 
86 IF T!=V" THEN 
58 



IF H*-k' THEN 
58 
38 IF TS=" "iU*" 

92 PRT CSR 8IIIID;: 
,14); 

34 ';i=fi«;r!=H-l 
96 FOR 1=8 TO 18 
98 PRT CSR BSTliCS 

R E;?l; 
188 HEXT UPRT 
182 yfijT 38:PRT "SC 

OREftS 
184 IF niltSOTO 29 
166 IF SifKlSaC 1ST 

fiT S 
168 PRT "RECORD I "I 

SX 
118 FRT UNE 8UTRE 

SORTIE"; 
112 IF KEV="" THEN 

112 
114 IF KEY=X THEN 

26 
116 PRT ;PRT TBI RE 

VOIR"; 
118 EHO 
126 TWU0(8M,t)iF 



122 IF T*="-";RET 245 NE>:T R 
124 IF UtTIREI 356 RET 
126 $=NID(I>B*3)t"- 

"tHID(6t5,24-8- »« VSR LIST 

I) 
128 FOR N=6 T8 5 
138PRTCSRB;fl$i»- 

"MJICSR BiRt;' 



132 NEXT NiFS=" 



VRR: 46 PR6: 

1528 
8$ t 
B* = 

'IRE C • 6 
8$="- 



288 «="ffiN-lJILI()H E 
tttl" F 

265 FOR 1=1 TO 16 S 5 



= 6 



IP 2 
216fll=HI!!(I,l) 
215 Bt=HID(I+l, 1) 

217 FOR C=8 TO 8-1," 

2 
228 PRT CSR C;" ";« 

t;CSR 16-C!Bf;" 

■; 

222 HEXT C P 

225 NEXT I 8 

236 FOR R=6 TO 16 R 

235 PRT CSR Ii*tlt( S 

UlrWHDttr; T 

248 PRT CSR ll'ltl". 

uwfK-inttr; » 



.= 3 
= 23 



> 13 
= 5 

= 13 



Rl»=-i £- 
R2*=-= 4- 
R3l=~t— - 
R4J=-t— -0 
R5«=~tt— 
R6J=-00-0- 
R7$=-0t-t- 
R8)=-fO-1- 
R9*=-0-tt- 
B8 = 3256239236 
Bl = 3234693836 
B2 = 5673293616 
B3 = 3437284671 
B4 = 6761582931 
65 = 9372638392 
B6 = 3762678459 
B7 = 385791495 
88 = 6769532636 
B9 = 7549887657 



BOITE A OUTILS 



vE TBSTB LA 
QtyUTE OB tfe$ 



Cet utilitaire augmentera la potentiality de votre ZX. par 
quelques "outils" de qualite. 



Piernck LUCAS 



Mode d'emplot; 

Tout d'abord, tapez le programme chargeur (deja publie dans le n° 
80). Lancez-le el a la demande "longueur REM ?". tapez 2048 puis 
entrez un a un les codes MACHINE. Supprimez ensuite les Mgnes 
20 a 400 et tapez les lignes 20 a 90 du programme BASIC "boite a 
outils". Le lancemenl de ce programme implantera dans votre ZX. 
les fonctions suivantes : 
SCROLL HAUT 

BAS 

DROITE 

GAUCHE 
INVERSION VIDEO 

SAUVEGARDE DE L'ECRAN dans une variable drmensionnee. 
MINI TRAITEMENT de TEXTE avec la meme sauvegarde. 
Pour utiliser ces routines, tapez votre propre programme ou le pro- 
gramme de demonstration 
L'appel des routines esl realise par trois lignes : 

1 DIM ?$ (704) "en realite de 1 a 704" 

2 RAND USR 3E4 

3 REM ? "le ? etanl le nom de la routine HAUT, BAS. DROITE. 
GAUCHE, PAGE ?. TEXTE ?" 



Chaque nouveau mot cle doit etre suivi dun espace. le " ?" desi- 
gnant la variable uttlisee (texte A) Vous pouvez utiliser plusieurs 
routines a la suite en separant les mots par " :" (3 REM TEXTE B : 
HAUT : BAS : DROITE : INVERS PAGE A) Apres un SCROLL, ne 
pas utiliser celui du ZX. En cas d'erreur un message vous indique : 

1 N° de ligne 

2 L'erreur 

Pour le Iraitement de texte. vous pouvez utiliser les touches : 
SHIFT + 1 . decaler vers le haul dune ligne a partir du curseur. 

+ 2, idem vers le bas 
" + 3. CLS. 

+ 4, insertion apres le curseur, dun espace. 

+ 5. curseur vers la gauche 

+ 6, le bas 

+ 7, le haul 

+ 8. la droile 

+ 9. mode GRAPHIQUE (le caractere en haul a gauche 
s inverse) 

+ 0. efface un caractere apres le curseur 

+ Q, COPY sur imprimante 

+ fonction DESSIN 
Pour sortir du traitement de lexte, appuyez sur N L jusqu'a ce que le 
curseur sorte en bas a gauche. SHIFT+ N L = sortie du traitement 
sans sauvegarde en variable. Toutes les touches sont auto-repetiti- 
ves. 

FONCTION DESSIN : utiliser les louches 5. 6. 7. 8 pour deplacer le 
crayon 
Touche 9 pour ecnre, pour ettacer et NL retour texte 




Listing 1 



10 REM OOOOOGGGGGGCGCGGuOGGOOG 
JOOGGGOGCGOOOGCQGCiOOOGOGOG 

i 16Sl4> ( .-52 THEN GO 



20 IF 



30 LET M»="CD230F21A740O14H06C 
DflEe9aA7F40014A0609227F4 02 16240 3 
67623 3676CD260FC976" 

40 FOR N=16514 TO 16546 

50 POKE N,16*C0DC M«*CODE M*i2 
< -476 

60 LET MS»M*i3 TO I 

70 NEXT N 

80 PRINT "LONGUEUR REM 7" 

90 INPUT A 

100 LET A=A-50 

110 LET B*INT tfl/256i 

120 LET C=INT tn-i256*BJ) 

130 POKE 16521, C 

140 POKE 16530, C 

150 POKE 16522,6 

160 POKE 16531,6 

170 RAND USR 16514 

200 SCROLL 

210 PRINT "RDRESSE 7" 

220 INPUT A 

230 SCROLL 

240 PRINT R, 

250 FOR N»0 TO 7 

260 INPUT fl» 

270 IF flt»"X" THEN GOTO 200 

280 IF R*=-S" THEN GOTO 400 

290 IF Ri="" THEN GOTO 340 

JUBJ IF LEN R*l>* THEN STOP 

310 POKE fltN, IStCOOE A**CODE ft* 



. Hj. 



-476 
320 PRINT 

330 GOTO 360 
340 LET P*PCEK IfltNt 
350 PRINT ■' ",CHR» 128*INT I 
S> ) , CMR« 128+P-INT iP/16) *16) 
360 NEXT N 
370 LET ft»A+8 
380 PRINT 
390 GOTO 230 
400 5AUE "CHflRGEuB ' 



Listing 2 



16514 
15522 

16530 
16538 
16546 
16554 
16562 
16570 
16578 
16586 
1-5544 
16605 
16610 
16618 
16626 
16634 
16642 
15650 
16658 
16666 
16674 
16682 
16690 
16698 
16706 
15714 
16722 
16730 
16738 
16746 
16754 
16762 
16770 
16776 



05 76 76 CD 53 75 18 08 



75 21 
40 21 

29 40 

er ca 

C9 EO 
81 E2 
28 20 
23 13 
75 E9 
00 C3 
00 G3 
C3 16 
23 00 
26 2D 
26 2C 
7D 76 
CD 72 
58 39 
ED 53 
17 2R 
BE 20 
CC 75 
2R 0C 
09 22 
21 23 
00 09 
C3 CC 
E5 E5 
40 36 
D6 02 
09 CD 



00 CD 
CB 75 
87 75 
13 13 
44 77 
5B 39 
4R 77 
CE 1R 
18 Fl 
2E 33 
DC 75 
F5 75 
76 29 
C3 46 
2ft 00 
2ft 00 

39 2R 
76 C3 
75 13 

I? 12 

07 05 
3C 80 

40 es 

OE 40 
36 03 

01 01 
75 2R 
23 22 
21 23 
09 EB 
68 El 



00 00 00 00 

F5 08 11 r- 

97 CD 52 

18 13 CD 

13 13 IP 

ED 53 39 

75 13 1ft 
13 1R CD 
PC 00 26 
23 CD 53 

36 2R 37 
2D 26 3ft 
27 26 38 

37 34 3C 

76 2C 26 
C3 5C 76 
CD 72 7e 
3D 39 2R 
OB 7** 00 
1R FC 0C 



56 23 3C 

C2 C2 75 
88 77 18 
23 01 66 
2R 39 40 
CI 56 01 
06 02 CD 
OC 40 C5 
0E 40 21 
36 18 El 
01 B6 02 
01 F7 02 



n 



16810 
16616 
16526 
16834 
15842 
16850 
16e55 
16866 
16e74 
16882 
15890 
15898 
16906 
16914 
16 922 
16930 
16933 
16946 
16954 
15962 
16970 
16976 
16936 
16994 
17002 
17010 
17016 
17026 
17034 
17042 
17050 
17056 
17066 

17074 
17032 
17090 
IT" 095 
17106 
17114 
17122 
17130 
17138 
17146 
17154 
17162 

-71-0 

17176 
17166 

17194 
17202 
17210 
17218 
17226 
1 "■ S 3 4 
17242 
17250 
17258 
17266 
17274 

17290 
1729e 
17306 
17314 
17322 
17330 
17338 
17346 
17354 
17362 
17370 
17376 
17386 
17394 
17402 
17410 
17418 
17426 
17434 
17442 
17450 
17458 
17466 
17474 
17482 
17490 
17498 



Dl 01 21 

75 01 76 
00 23 7C 
C3 CC 75 

76 19 2ft 
7e B9 20 
75 72 57 
68 77 CD 

11 06 00 
2ft OC 40 
FC 76 20 
ftO 78 01 
2ft 10 40 

75 7C PC 
C6 EO IF 
03 Cft D4 

76 FE 04 
CR 04 77 
PC 06 CR 
06 00 19 
R3 76 Fl 
C6 EO 17 

76 Fl C3 
00 19 22 
Fl CD 3R 

12 00 19 
R3 76 22 
Fl E6 3F 

77 5F Fl 
37 75 23 
IB ED 53 

77 Fl C3 

56 23 19 
68 77 C3 
C3 53 77 
OC 40 11 
40 £1 06 
FB CF 72 
2ft 00 2E 
29 SR 00 
26 3D 2fl 
33 2ft 2ft 
00 33 00 
2ft 00 35 
00 CD 43 
21 40 2ft 
00 2R OC 
CD 68 02 
80 77 51 
CD BD 07 
7ft Ft CO 
Cft 50 79 
FE DC Cft 
CR 78 FC 
FE 70 Cft 
61=1 78 Ft 
73 CR 4D 
79 FE 77 
Cft 7D 76 
00 19 4E 
2R OE 40 
18 06 33 

e: ee 12 

52 02 7D 

57 EE 60 

78 Bl 20 
2h OE 40 
ID 73 2fi 
40 7E FE 
78 26 22 
11 21 00 
40 EC 52 
2ft OC 40 

oc 40 c; 

11 21 00 

CD 52 38 

OC 40 11 

OE 40 C3 

26 ED 56 

E5 CI CI 

76 28 02 

20 F3 C3 

2B ED 5B 

E5 CI El 

FE 76 28 

61 C2 DB 

OE 40 23 

18 F8 22 

CD 2R Oft 

40 EE BO 



00 ED 

16 2ft 
69 20 
72 67 

10 40 
05 10 

18 F2 
53 39 
2R 37 
CD 46 
03 23 

20 F2 
22 35 
80 CR 
IF IF 

76 FE 
CR FD 
FE 02 
OF 77 
22 35 
E6 3F 

17 17 
C2 76 
35 75 

77 C3 
22 35 

37 75 
CB EF 
Be C2 
5E 23 
3B 75 
R3 76 

22 35 
53 77 

21 8ft 
FF 02 

11 7E 
39 34 
33 3B 
IB 38 
00 2ft 

00 16 
2R 3D 
26 38 

39 40 
OC 40 

40 5E 
44 4D 
14 CR 
7E FE 
CR 67 
FE Oft 
FD 78 
76 CR 
6ft 76 
72 Cft 
76 FE 
CR RR 
31 8D 
3R 21 
7E FE 

23 0E 
40 2R 
76 3ft 

01 58 
FS 73 
23 22 
OE 40 
76 28 
OC 40 
ED 53 

38 03 
11 31 
2D 78 

19 ED 
03 C3 

20 00 
2D 76 
0E 40 
16 00 
72 57 
3D 78 
OE 40 
16 00 
03 73 

78 C3 
7E FE 
0C 4 
C3 ID 
33 31 



60 C3 CC 

OC 40 16 

06 10 F7 

18 F2 01 
16 00 26 
P7 C3 CC 
13 1ft 32 
76 18 20 
75 19 C6 

36 76 76 
16 F8 CD 
C3 CC 75 

75 3R 35 
SO 77 F5 
IP IP PC 
05 CR DF 

76 FE 07 
CR 33 77 
PI C9 11 
75 PI C3 
23 7C P5 
R7 C2 F2 
Fl 11 06 
C3 R3 76 
A3 76 11 
75 Fl C3 
CD 3fi 77 
P6 3R 56 
R3 76 2R 
66 16 ID 
C9 CD 3R 

2 3 SE 23 

75 C9 31 
31 79 77 

77 E5 3R 

19 22 OE 
0? A3 10 
33 33 2R 
26 31 2E 
3E 33 39 

37 37 34 
00 00 00 
2E 38 39 
00 01 00 
3E 00 32 
33 32 00 
7E F5 C5 
CI Fl EC 

03 77 73 
09 CR 8E 
79 Ft 75 
CR 16 79 
PC DF Cft 
CC 78 7C 
PC 71 Cft 
57 76 Ft 
74 Cft 03 

78 FE 79 

79 5F 16 
40 81 D7 

76 28 02 
40 18 F0 
0C 40 CD 



OE 



7E 



16 77 0B 

C3 ftE 77 

06 40 C3 

36 32 OE 

03 C3 ID 

3ft 10 40 

CB 2ft OE 

C3 2D 7S 

00 19 33 

2R OC 40 

56 OC 40 
2D 78 2ft 
CD 53 33 
3ft 10 40 
E5 CD 53 
36 7E FC 
06 78 61 
3P 10 40 
D6 ED 52 
26 23 7E 

57 06 76 
30 78 3R 
76 28 02 
C3 ID 76 
78 3ft 21 
40 2R OC 



17506 


40 


23 


7E 


EE 


30 


77 


33 


ID 


80 


RAND USR 18068 




17514 


n 


2h 


OE 


40 


se 


7E 


FE 


76 


90 


NCU 






17523 


23 


->; 


16 


F8 


ES 


11 


22 


00 










17530 


19 


ED 


SB 


13 


40 


E6 


EC 


52 










17538 


28 


03 


C3 


3 1. 


79 


El 


C3 


ID 










17546 
17554 


7 a 


hi 5 
21 


31 
00 


2m 
ED 


10 
52 


40 

Dl 


28 

ED 


ES 
88 


Listing 4 






17562 


El 


OC- 


20 


23 


36 


00 


10 


FE 










17570 


c : 


ID 


75 


2 A 


■' 


40 


26 


"E 


CCPJi 


URE CN UIOCO 


NORMALC 


17576 


FE 


7 6 


3 m 


53 


79 


15 


r7 


23 


CflRftCTef 


17586 


ES 


11 


21 


00 


19 


ES 


ED 


SB 










17594 


10 


40 


ie 


EB 


s: 


52 


30 




LIGNE 




17e02 


El 


El 


C3 


ID 


76 


E5 


Cl 


El 










17610 


Dl 


ED 


E0 


2m 


10 


40 


26 


28 


1 


. ."PROGRRMMC 


DC DEMON 


17618 


7E 


FE 


76 


CR 


ID 


78 


36 


30 




ON" 






17626 


15 


p_ 


CD 


59 


06 


33 


ID 


78 


5 


. .-U0U5 CTE3 


DANS 


LE TRfllTE 


17634 


00 


0F 


OF 


O p 


O c 


OF 


OF 


OF 




MCNT DC TCXTC YRRIRBLE V 


17642 


OF 


OF 


OF 


06 


0C 


00 


0E 


OF 




• " 






17650 


10 


11 


12 


13 


14 


15 


16 


17 


10 


. .■'OORDURE NOIRE" 




17558 


13 


19 


IB 


IE 


1C 


ID 


IE 


IF 


20 


. . ■'PAGE" 






17666 


20 


21 


;. 


23 


Si 


25 


26 


27 


30 


. ."TCXTC" 






17674 


25 


SI- 


2ft 


25 


sc 


2D 


2E 


2F 


40 


. . "SCROLL" 






17652 


30 


31 


32 


33 


34 


35 


35 


3 7 










17690 


36 


39 


3fl 


3B 


3C 


3D 


3E 


3F 










17698 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


0F 










17706 
17714 


OF 
OF 


OF 

OF 


OF 
OF 


OF 
OF 


OF 

OF 


OF 

or 


OF 
OF 


OF 

OF 


Listing 5 






17723 


0F 


OF 


OF 


OF 


OF 


or 


or 


OF 










17730 
17738 
17746 


0F 

= 
0F 


OF 
OF 
OF 


OF 

OF 
OF 


|p 

OF 

or 


OF 

OF 

OF 


or 
or 
01 


OF 
or 

OF 


OF 
OF 

or 


i 






TfBHBDI 


DlM X»JJS±) 






17754 


0F 


OF 


OF 


OF 


OF 


Or 


0F 


OF 


3 


DIM vi r«4) 
REM POUR 6 L 






17763 


OF 


OF 


OF 


OF 


OF 


a 


OF 


If 




IGNCS (6*3 


17770 


0F 


OF 


OF 


OF 


OF 


OF 


S 


DIM J« 16*33) 






17778 


ip 


OF 


OF 


OF 


OF 


OF 


OF 


0P 


5 


LCT X-3C4 






17786 


0F 


OF 


OF 


BP 


OP 


or 


OF 


OF 




DIM Si (704) 






17794 


OF 


OF 


OF 


OF 


3F 


OF 


0F 


or 


3 








17802 


CF 


OF 


O c 


OF 


OF 


OF 


OF 


OF 










17810 


OF 

3 = 


OF 
OF 
OF 


o r 

OF 
OF 


OF 
OF 

OF 


OF 
OF 
OF 


OF 
OF 
OF 


OF 
OF 
OF 


OF 
OF 
OF 


35J Li 


Itraitem 

■^^^^^^ Ml 


17e26 






17 = 34 


OF 
OF 


OF 

OF 


OF 
C 


OF 

o p 


OF 
OF 


or 
or 


OF 

or 


or 










17542 










17350 


0F 


OF 


02 


84 


3F, 


OF 


OF 


or 


Ii 


RRND USRX^ 






17858 


07 


3 


:•■: 


3 5 


S 


Sh 


OF 


OF 


12 


REM INUER5 : DROITC 


j MAUT ; G 


17e66 


0F 


OF 


OF 


2? 


■^ 


l' f 


OF 


or 


RUCHC GRUCHC : DROITE ; 


BAS ; BRS 


17874 


0F 


OF 


OF 


0F 


OF 


OF 


OF 


HAUT : INU_£R5 






17882 


OF 


OF 


OF 


0F 


OF 


OF 


OF 


00 


30 


REM JHu 






17390 


00 


2m 


30 


40 


22 


26 


75 


01 


21 


RRND U5R X 






1789e 


01 


01 


3E 


HO 


3 2 


30 


40 


IS 


22 


RCM PRGC X 






17906 


CD 


B2 


08 


Cl 


3E 


90 


32 


30 


30 


RCM gBBHl 






17914 


40 


;e 


CC 


15 


76 


CD 


82 


3r; 


31 


PRINT AT 15,0; Zt 




17933 


3C 


ee 


02 


7 3 


3C 


ae 


F9 


E5 


35 


RRND USR X 






17930 


Cl 


CD 


6D 


07 


Cl 


7C 


FE 


22 


35 


RCM TCXTC V 






17938 


Cm 


DC 


-A 


FE 


21 


Cm 


E3 


7h 


40 


-'- TtflFtT 






17946 


FE 


24 


26 


ID 


FE 


23 


26 


13 


43 


PRINT AT 0,0 


"POUR 


DCPLACCR 


17954 


FE 


25 


S3 


St 


FE 


1C 


26 


34 


5,6 


7,0 


I«INUCRSION U 


17963 


FE 


78 


CR 


an 


7B 


33 


9 7 


7h 


IDCO 




P«MISC CN URR 


17970 


OS 


IS 


37 


3 4 


15 


04 


OD 


IS 


IRBLE 


DC LR PRGe 


ft«AFFICi 


17976 


01 


OC 


76 


FE 


ZC 


28 


F4 


FE 


PAGE 








17956 


26 


2 3 


ED 


7 9 


FE 


00 


se 


Fl 


43 


IF INKEY*»"5- 


THEN 


RAND USR 


17994 


FE 


3F 


25 


Eh 


C3 


6" 


7m 


3E 


X 








18002 


hO 


32 


ii 


7m 


3E 


90 


3S 


fl2 


44 


RCM GRUCME 






18010 


7m 


3 3 


97 


7m 


36 


■ 


32 


95 


45 


IP INKEYta"6' 


TMEN 


RAND USR 


18018 


7m 


36 


mO 


32 


R2 


7m 


Z3 


97 










16026 


7m 


:s 


OS 


:■ 


OE 


64 


16 


OS 


46 


RCM ens 






13034 


15 


so 


FC 


o: 


SC 


n 


10 


F4 


47 


IF INKCY$«"7" 


TMEN 


RAND USR 


13042 


Cl 


3 9 


00 


00 


00 


2fl 


25 


78 










13050 


la 


3C 


40 


01 


00 


00 


CD 


FS 


4 3 


RCM MftUT 






13 356 


Bfl 


33 


98 


77 


21 


30 


75 


22 


4 9 


IF INKCYt = "8' 


TMEN 


RAND USR 


18066 


04 


4 


21 


85 


40 


11 


30 


7 5 


X 








13074 


01 


00 


3 3 


ED 


60 


£§ 


2 1 


88 


SO 


RCM DROITC 






18032 


4 3 


11 


E2 


44 


01 


FF 


00 


ED 


SI 


IF INKCY§«"I' 


THCN 


RAND USR 


18090 


EO 


09 


05 


OS 


05 


05 


OS 


35 


X 
Si 

53 


RCM IN'JCRS 
IF INKCY»*"P 


TMCN 


G05UB 10 



Listing 3 

10 REM 

20 REM EC) I 

30 PRINT RT 



OITC A OUTIL 
PRCSSCZ UNC 



40 PRINT RT 12.5. 
TOUCMC" 

50 IF INKCY|«"" TMEN GOTO 50 
60 POKE 16369,117 
70 POKe 16368,48 



55 IP INKEY«« "C" TMCN RHNO USR 
X 

56 RCM ERREURiSYNTAXC CRRONNCC 

57 IP INKEY««"A" TMCN QOSUB £0 

99 GOTO 43 

100 RAND USR X 

110 RCM PROE 5 

120 RETURN 

200 CLS 

310 PRINT St 

330 RETURN 




HECTOR 




220st >pl5iJ-J*ltY(J)-Zi n« . t 

1840 r«»to>-«1850!forZ = Itol4fa:reaclI.J:A(2)=X (I> :B(Z) 
-' .Ji intxtirtturn 

1830 d*t«l,2, 1,3, 1,4, 1,5, 1,7,1,8,1,9, J, 10,1,11, 1,12 
, I, 13,2, 1,2, 14,3, 1,3,3,3,4,3,5,3,6,3,7,3,8,3,9,3,10, 
3,11,3,12,3. 14,4, 1,4.3,4, 12,4, 14,3, 1,5.3,5,5.5,6.5,7 
.3,8,3,9,3, 10,3, 12,3, 14,6,1,6,3,6,5,6, 10, i, 12,6,14 

1860 d*t»7, 1,7,3,7,3,7,7,7,8,7. 10.7, 12, 7. 14, 8, 1 ,8. 3 
, 8, 3, B, 7, B, 8,8, 10, 8, 12, 8, 14, 9, 1,9, 3, 9, 5, 9, 10, 9, 12, 9, 
14, 10, 1, 10,3, 10,3, 10, 10, 10, 12, 10, 14, 1 1 , 1 , 1 1 ,3, 1 1 ,3, 1 
1, 10, 11, 12, 11,14,12,1, 12,3, 12,3, 12, 10, 12, 12, 12.14 

1870 d*t«13, 1,13,3, 13,3, 13,7, 13,8, 13, 10. 13.12, 13,14 
,14,1, 14,3, 14,3, 14,7, 14,8, 14, 10, 14. 12, 14, 14, IS, 1,15, 
3, 13,3, 15, lO, 13, 12, 13, 14, 16, 1, 16,3, 16,3, 16,6, 16,7. 16 
,8, 16, 9, 16, 10, 16, 12, 16, 14, 17, 1,17, 3, 17, 12, 17, 14 



1B80 d.talB. 1, 18,3,18,4, 18,3, 18,6, IB. 7, IB, B, 18,9,18 
, 10, IB, 11, IS, 12, 18, 14, 19, 1, 19,14,20,2,20,3,20,4,20,3 
, 20,7, 20, B, 20,9, 20, 10,20, 1 1 , 20, 12, 20, 13 

1890 iiiiiiiiiiiiuditiiiiiiiiiii 

1900 '•■ Sa 

1910 "t« DESSIN PERSONNAGES t* 

1920 '•• ,, 

1930 iiiniiiiiiKniuiiiniiiiii 

1940 ' 

1930 d*t«12,B. 132,188, IBB, 152, 126,61,61,61,24,36,36 
, 102, 189,66, 133, 163,66,90,90,66, 163, 153,66, 189, 129,6 
6,66,36,60,133, 126, 133,36,36,66,66, 129. 102, 24, 153, 12 
6,24,24,126, 133,24, 102,129 

1960 r»mtor» 1930i <or Z-64000to64049: r»adV: pok»Z . Vj no 
xt!pok»».3FE4.230ipok»i3FE3,0tr»tiirn • 



SATURN E 3 



Un champ de meteorites avec vous au milieu. Je vous 
previens, ga va faire mal ! 



"^ SEul coitt 
v Z5 fl« MOW 
OiSE 



suite duN 80 



JL. GRISON 



LOCATE 


1 20 


12' 


: PRINT 


CHR* 


71 > 


LOCATE 


( 18 


u . 


t PRINT 


CHR* 


21) 


LOCATE 


1 IF. 


IB: 


:PRINT 


CHR * 


ri) 


LQCA'E 


<20 


29 


iPRINT 


CHR* 


2D 


LOCATE 


(18 


77: 


:PRINT 


CHRI 


2D 


LOCATE 


(16 


23) 


:PR] NT 


CHR* 


22) 



! FOR 1=17 TO 24 

t CALL COLORC'ICB") 

LOCATE (16,I):PRINT CHR* ( 23 > :NEXT 
i LOCATE (21,11>:PRINT CHR*(21 
I LOCATE (13,13>:PRINT CHR*<21 
1 LOCATE ( 17, 15) iPRINT CHR*(21 
l LOCATE (21,30) tPRINT CHR»(22 
l LOCATE (13,28) SPRINT CHR*(22 
I LOCATE (17,2&):PRINT CHR* t 22 

FOR 1 = 12 TO 23:L0CATE (21,I):PRINT CHR* ( 23 ) iNEXT 
! FOR I«=13 TO 28:L0CATE (20,I)iPRINT CHR* < 23 ) : NEXT 
I FOR 1=14 TO 1G:L0CATE (19,I):PRINT CHR* ( 23 > t NEXT 
. FOR 1-25 TO 27:L0CATE ( 18, 1) .-PRINT CHR* ( 23 ) :NEXT 
! LOCATE (1B,26) :PRINT CHR*< 25 >: LOCATE ( 1 8 , 13 ) SPRINT CHft*<25) 
. CALL C0L0RC1YB" > :LOCATE ( 18 , 1 7 ) iPRINT CHR* (24 > iLOCATE (18,19) 
1 PRINT CHR*(24) iLOCATE ( 1 B , 22 ) :PRINT CHRS ( 24 ): LOCATE (18,24>t 
PRINT CHR* (24) 

LOCATE (17,17) iPRINT "SATURNE3" 
' DATA 2, 6, 3, 11, 2, 1B, 3, 24, 2, 23, 2, 33, 20, 2, 19, 9, 19, 32, 20,3B 
DATA 4, 15, 4, 21, 18, 5, 17, 12, 17, 29, 1B, 33 

DATA 6,13,3,18,6,22,5,25,4,28,3,23,16,3, 13, 14, 13, 17, 15, 27, IE, 31 
: DATA 6,16,6,13,6,21,6,23,6,27,6,28,7,13,7,18,7,23 
DATA 14,14,14,16,14,19,14,20,14,22,13,17,15,18,15,22,15,23,14,23 
DATA 7,20,7,22,7,24,7,26,9, 17, B, 18, B, 19,8,21 ,9,22,8,23,9,24,8,23 
i DATA 13,17,14,18,13,19,13,21,13,22,14,23,13,24,14,24,14,27 

:CALL AFF2(X,Y) iNEXT 
ICALL AFF2(X,Y):NEXT 
tCALL AFF1(X,Y)tNEXT 
tCALL AFF1(X,Y):NEXT 
:LOCATE (X,Y);PRINT CHR* (3 
■LOCATE <X y Y):PRlNT CHRSO 
(LOCATE (X,Y):PRINT CHR* ( 2 
>:LOCATr (X,Y);PRINT CHR*( 




MM*) ;CALL SPEECH. "L," 
;CLS "PVR" I PAUSE .1:CLS 



B6 FOR 


1 


TO 


6:READ X,Y:CALL COLORC 


1YB" 


87 FOR 


-1 


TO 


4:READ X,YiCALL COLORC 


1 bb ■ 


88 FOR 


■1 


TO 


2:READ X,V:CALL COLORC 


IVB" 


89 FOR 


■ 1 


TD 


4: READ X , Y : CALL COLORC 


1CB" 


30 FOR 


= 1 


TD 


EtREAO X,V:CALL COLORC 


(Yl ■■■ 


91 FDR 


-1 


ro 


5:REAd X,Y:CALL COLORC 


i BB 


32 FOR 


-1 


TO 


9:READ X,Y:CALL COLORC 


IYB" 


93 FOR 


1 


ro 


10:READ X,Y:CALL COLOR' 


"1GB 


94 FOR 


■ 1 


TO 


12iREA0 X,YiCALL COLOR' 


■' 1 re 


33 FOR 


:-i 


TO 


SlREAD X,Y:CALL COLORC 


I H ■' 


96 ! 










97 N-.7 


-FO/10 


TEM-OiSA-0 




3B RANOOMIZE 






99 X-INTRNDC2 


49 




100 RANOOf 


I/h 






101 Y-INTRND(4) .1B:Y1-YiY2-YiY3-Y: Y4- 


y i n 



102 ' 

103 CALL COLQRC'OYB" MLOCATE ( 1 3, 1 B) ;PR INT CA 

104 CALL COLORC'IRB") : CALL SPEECHC'R , "t91 » ) 

105 LOCATE (X,Y)iPRINT CHR* ( 1 >: PAUSE N 

106 IF 3A-1 THEN 110 

107 CALL KEY1(A,B) 

108 IF A-131 THEN Y»Y-3:Y2-Y 

109 IF A-129 THEN Y-Y.3:Y2«Y 

110 | 

111 LOCATE (X,Y1);PRINT » <• 

112 LOCATE (X,Y):PRINT CHR* ( 2 ): PAUSE N 

113 IF SA-1 THEN 117 

114 CALL KEY1(A,6> 

113 IF A-131 THEN Y=Y-3:Y3-Y 

116 IF A"123 THEN Y-Y.3:Y3-Y 

117 I 

Ml LOCATE! (X,f2)fPRINT » ■ 

118 LOCATE (X,Y):PRINT CHR* ( 3> : PAUSE N 

120 IF SA-1 THEN 124 

121 CALL KEY1(A,B) 

122 IF A-131 THEN Y=Y-3:Y4»Y 

123 IF A-129 THEN Y-Y.3iY4»Y 

124 t 

123 LOCATE (X,Y3):PRINT " " 

126 CALL AFF1(X,Y> : PAUSE N-.3 

127 IF BA-1 THEN 131 




CALL SPEECHC'A, 
lEXfl) 

! CLS "RRR";F'AUSE 

"RbR" : PAUSE . ItCLfi "RMH" 
: PAUSE . 1 iCLS -RBB" 

IF TEM<17 THEN 146 ELSE RANDOMIZE 

Z-RNDlIF Z>.7 THEN 152 
. CALL COLORC'OCB") :LOCATE (12,1S):GOT0 1 3< 

I CALL SPEECHC'A," ) : PAUSE 4:CLS "CBB'-iCALl 

COLORC'OCB") 
I LOCATE (12,15>:PRINT "BRAVO I •' 
> LOCATE (14,8):PRINT "MAINTENANT A VOUS 

POUR L'ATTERRISSAGE ." 

GOTO 135 
! CALL SPEECHC'A, "):CALL COLORC'OCB"): 

LOCATE (12,8) 
I PRINT "UOUS AVEZ DE LA CHANCE, LES OECATS 

SUNT E'ENINS ET VOUS POURREZ"; 

PRINT " ATTERRIR." 
' PAUSE 3 

CLS "CBB":CALL COLORC-OUB") 

FOR 1-1 TO 40 

LOCATE (21,I)iPRINT CHfi* (23 ) : NEXT 

FOR I«1B TO 20 

LOCATE (21,I):PRINT CHR* ( 12 ): NEXT 

LOCATE (17,1>:PRINT "VZ EC":LOCATE 

( 17,36) I PRINT "CA" 

X-2iV-0iH=0:N-.4 TO/ 1 : RANDOMIZE 
L-RNDlIF L>.5 THEN 166 ELSE 167 
RANDOMIZE: Y"TNTRND( 10) : GOTO 168 
RANDUMI ZE : Y* INTRNO( 10 ) .20 



•H:V1=V:SA-0 



X1-X: Y1=Y 

V = V.1 sX-XtV:Y-' 

IF X<2 THEN X=>2 

IF X>13 AND Y-13 AND U<3 THEN 198 

IF X>19 AND Y=19 AND V>3 THEN 189 

IF X)13 AND Y<)19 THEN 189 

CALL EFF1(X1,Y1 ):CALL AFF3( X , V ,B ) :PAUSE N 

IF SA-1 THEN 187 

CALL KEVKA.8) 

IF A-123 THEN H = H. 1 sB»32 

IF A-131 THEN H=H-1:B=32 

IF t>"32 THEN V-V-2:B-30 

IF VI -V< )2 THEN B-32 

IF B< >32 THEN CALL SPEECH( "L , " IE 1 • :■ El SE 

CALL SPEECHC'A,") 

IF B=32 THEN CA=CA CO 

IF CA(=0 THEN SA-1:CA=0 

LOCATE ( 18,34) :PR1NT CA 

LOCATE (18,1):PRINT V;" " 

EC-Y-13:L0CATE ( 18 , 4 » : PR INT EC 

CO TO 160 



204 

SOS 

JOE 

.:o? 
208 

.:03 

.MO 

211 

212 
213 

n* 

21-, 

nt. 
217 
..■1* 
Z1B 

220 
221 
222 

223 
2 2* 
225 
226 

22^ 
228 

2 23 

2:*0 

231 

232 

233 

234 



2 SB 

233 

210 



UOULEZ UOU 



CALL SPEECHC'A, "):PAUSE 4:CLS 
"CBB":CALL COLORC'OCB") 
LOCATE (5,B):FRINT "VOTRE CONT 
RAT TST RENFLI ET UOTRE " 
LOCATE (7,8):PRINT "DEXTERITE V 
OUS H0N0RE.":COTO 193 

SUB EFFIX.Y) 

FOR I"-1 TO 1 

LOCATE (X.I,Y):PRINT " " 

LOCATE (X»l,r-1):PRINT " " 

LOCATE (X.I ,Yt1 ) :PRINT " " I Nf 

SUBEND 



j<*3> a( 



jfi^Tvrrs) 



SUe AFF2<X,1 

LOCATE (X,Y1 

LOCATE (X,Yi 

LOCATE (X-1, 

LOCATE (X-1, 

LOCATE (X-1, 

LOCATE (X,Y- 

LOCATE '«.i 

LOCATE <X.1 | 

LOCATE (X.I, 
SUBEND 
I 

SUB AFFKX.l 

LOCATE (X,Y: 

LOCATE (X,Y ( 

LOCATE (X-1 , 

LOCATE (X-1 

LOCATE (X-1 | 

LOCATE (X,Y. 

LOCATE (X.1, 

LOCATE (X.I 

LOCATE (X.I 
SU6EN0 



SUB AFF3(X,Y,B> 

CALL COL0R("1YR"HL0CATE (X,Y 
:PRINT CHR*(27) 

CALL COLORC'IYB") iLOCATE (X-1 
Y):PRINT CHR*(26) 
LOCATE (X,Y-1)lPRINT CHR*(28) 
LOCATE (X,Y.1):PRINT CHR* ( 28 > 
CALL COLOR C1RB'*) 
LOCATE (X.1 , Y) :PRINT CHR*(B) 
SUBEND 

SUB EFF1(X,Y) 

FOR I--1 TO 1 

LOCATE (X.Y.f) :PRINT CHR*(32) 

EXT 

LOCATE (X-1,Y)lPRINT CHR»(32)i 

OCATE (X.1 ,Y)iPRINT CHRK32) 

SUBEND 



:PRINT CHR*(4) 
1 ) ■PRINT CHR*(5) 
Y.DiPRINT CHR»(6) 
Y)iPRINT CHR»(7) 
Y-1 ) :PRINT CHR*(8) 
1) iPRINT CHR*(9) 
Y-DiPRINT CHR*(10) 
V)iPRINT CHR*(11> 
Y.DiPRINT CHR*(12) 



:PRINT CHR*(4) 
1) iPRINT CHR«( 13) 
Y.1):PRINT CHR*(14) 
Y):PRINT CHR»(13) 
Y-1):PRINT CHR»(16> 
DiPRINT CHR*(17) 
Y-DiPRINT CHRK1B) 
V) iPRINT CHRX19) 
Y.I ) iPRINT CHR*(20> 



y TI99 BASIC 
ETENDU 

Suite de la page 6 



1350 DISPLAY AT (21 . 27 ) : 1*1 ■■ CALL HCHAR 
(1.1.32,480)11 NEXT I || FOF: J-l TO 12 : 

1 AP(J)«RO(AP(J) > : : NEXT J ll IV»0 

1360 CALL E 1 1 DISPLAY AT (21 , I ) : " 1 *-ortg« 

"•vDUS^iN*] t'**ubir' v, -' , -d»«' , 'p«rt»s' ,-, "' , '**'^' v "-"- 

**«*«,*«,,. ,, CALL t4(9oO)tt BOTO 1800 

1400 EV=INT<RND«5+1>:: CALL DElBPRITE(«1 

):i CALL CHAR(64.-7FE0EEEEEEE07F"(,RPT»f" 

0" . 18) t<"E03B0Ca70C3SE0OO0") 

1410 CALL CHAR(6e.-'C0F6FEFE7F7F3ClB38FEF 

F7E1E3EFC7",72,"327B614.A706036"I.RPT*C'0" 

. lB>«." , 40B0101C800O t J0800") 

1420 CALL SCREEN(3)n CALL COLOR (5, 1 3, 1 ) 

:i FOR 11=1 TO EV i: CALL CLEAR 11 CALL 

DELSPRITE(ALL) 

1430 FOR 1-1 TO 50 :: CALL HCHAR ( INT (RND 

•24*1). INT(RND»24»6) .68) : j CALL HCHAR ( IN 

T(RND»24*1) , INT(RND»24*6) .69) t l NEXT I 

1440 CALL SPRITE(»1,64,7.96. 16) 

1450 CALL KEVI1.0.U) : i IF W-0 THEN 1430 

ELSE CALL K 

1460 CALL POSlTlONdll . YY.XX) i i CALL GCHA 

R( (YY*7) /B. (XX*7) /8,G1 > S s CALL BCHAR((YV 

+7)/B, (XX*13)/B,Q2)i: IF Gl< >32 OR G2<3 

2 THEN 1300 

1470 CALL J0YST(1,X,Y) ii IF (YV-:8 ANO V< 

0)0R(YY)t84 AND Y>0)THEN V-0 

14B0 IF XX<240 THEN CALL HOT ION (HI , -Y«2. 

6) : t GOTO 1460 

1490 NEXT II is EV-0 n GOTO I BOO . 

1300 CALL S(300.-7,0)ii CALL MOT ION ( «1 . 

.0)ti CALL PATTERN («1. 72) : : CALL W(300): 

: CALL 0ELSPRITE(«1 ) i : L=INT (RND*B* 1 1 

1510 GOSUB 3000 n CALL SCREEN(14)i: DIS 

PLAV AT (15, DERASE ALL: "vou*^»ve;*-tauchi 

% un"Tfcif '"etvotre''] onque'*a""coul e^* v, -'' x ^ 



1340 AB.U.EV-0 si FOR 1-1 TD 12 n AP ( I ) 

-0 : : NEXT I 1 1 GOTO 140 

1390 CALL CHAR(SS,"327B616A706036"!.RPT*( 

"0".18)fc"4080301CB00090BOO"> 

1600 EV-INT(RND»10*l):i CALL CHAR(64."0O 

7FE0EEEEEEE07F"1RPT*I"0". 18)»."E03B0C870C 

3BE00") 

1610 CALL SCREEN(5)ll CALL CHAR (68. "004B 

13"liRPT*I"0 ",48) .72. "00CBD2"tRPT*("O". 48 

1615 CALL CHAR(76. "327B6 16A706036"i.RPT« ( 
"0". lB)^"EO38OCa7OCIBEOOO0■■) 
1620 FOR I-I TO EV t i CALL CLEAR u CALL 
DELSPRITE(ALL); : CALL SPRI TE I* I . 64. 7. IN 
T <RND« 160*8) .230) 

1625 CALL K£V(l.Q.W>it IF W-0 THEN 1623 

1626 CALL K i: CALL SPRI TE (»2. 64 , 15, INT ( 
RND*160*8) .6) 

1630 CALL KEVIl.O.W);: CALL JOY6T ( 1 , X . V ) 

: : IF W-. >0 THEN 3300 

1640 CALL POS1TIONI#1.V1,X1,«2.Y2,X2)H 

IF (YKB AND Vi 01 OR ( Y 1 >1 B4 AND Y>0)THEN 

Y-0 

1630 CALL MOTION(«1,-V*1 .5,0) • » YY-YI-Y2 

:: ON S6N(VY)*2 GOTO 1660.3400.1670 
1660 V2— 6 Ii GOTO 16B0 
1670 Y2-6 

1680 CALL M0TION(»2. V2.4)i i IF Y2<232 TH 
EN 1630 ELSE CALL MOTION (•) 1 , 0, 0, «2, Y2. 0) 
1690 CALL COINC(ALL„K> J I IF V. THEN CALL 
M0TI0N(#2,0.0>ELSE 1690 

1700 FOR 1-1 TO 10 t: CALL S (300, 900« I . I 
>:: NEXT I 

1710 CALL E It DISPLAY AT (21 . 1 > : "vou« A, «u 
bii*tz*un" , *bDrfl»at v ftlei*'pir*tM , 'vQut , 'pr 
•nn»nt-'"votr«* t arq»nt , -~" ii CALL W(300)! 
: EV.B-O 

1800 U-AB ii FOR 1-1 TO 12 n U-U-AP ( I ) : 
I NEXT I 

I860 Zl-2 t: GOSUB 4000 ll IF RND . 1 THE 
N CALL CLEAR :i CALL DELSPRITE ( ALL) ! 1 GO 
TO 140 

1870 CALL E i: CALL NOTION ( HI , 0, 0) i : DIS 
PLAY AT (21 ,l)i "vQu»""no"'pouv»i""d*t)arQuer' v 
c*ril~y~a -v ef*9-troublM~dans~l4^vil l«"fcRP 
T«f-"— ,23)11 ORR-1 it CALL UU300) 
1880 CALL DELSPR!TE(»l):i BOTO 1010 
1900 DISPLAY AT(14.3)ERASE ALL: "hoa !l 




"*020 RESTORE 3030 i: FOR 1-1 TO Ll 
AD NC* :: NEXT I ii RETURN 

3030 DATA -urn-van, kl n-to, mng-1 1 . p«o-»h» 
n, yln-pang.houal ,chun-tcn«, 1 ao-«hsn 
3040 FOR 1-1 TO B s: q(I)-I00 ii NEXT I 
ll FOR 1-1 TO 12 It APID-0 Ii NEXT I 
3030 B-2000 i: AB.MA.MU, VI , BO.PO, VOY, U-0 
It L-INT (RND»8+l) i : RESTORE 3210 H FOR 
1-1 TO 12 it READ P*(I)n AP(I)-0 ii NE 
XT I i : RETURN 
3060 ' TABLEAU 
3070 DISPLAY AT ( 1 . 1 1 ) ERASE ALLt A*lRPT» (" 



CALL 



tI00):i CAL-L OELSPRITKAL 



FOR 1-1 TO I 
: READ Mill 
l USING 



[«3,l 



is 






■ : RE 



?10 DISPLAY AT(16.3) l "*#i jian "IN 
ALL M i: CALL UI500):: END 
3000 RESTORE 3010 tl FOR 1-1 TO Ll 
AO Ll : : NEXT I t I RETURN 

3010 DATA tien-tsin.cMang-hai .macao.satq 
on, bangkok , si ngapaur , panang, r*ngoun 



3080 RESTORE 3120 
EAD M ti NEXT I 
3090 FOR 1-0 TO DL 
ATI4 + I*3, I ) i 1*1 IP* 
7.093 DISPLAY AT 

*!Ht":AP(l1> 
■TtOO DISPLAY AT(3*I"3.4) lUSINB "prin M 
ttMNHM ta*l»"iP!Mt t . NEXT I 

".110 DISPLAY AT (21. 1 ) !RPT»(-»",2e)I t I " 
caiasae vid*« i"IU :i DISPLAY AT(?^> i 
l:USING "banque #•(«#••««■ tacts'iB :: 
RETURN 

3120 DATA 0.0.0,0,0,0,2,1,3.8,11.12,9.5. 
10,4,6,12,7,8,2. 10, 1,12.5,9.4.3,6, 12 
3130 DATA 7,6,11,2,8.12,3,1.11,10,4.12,7 
,2,8,3,6, 12,10,9,4, 1. 11, 12 

3210 DATA tlis.bflis.pa'ceUlne.stl .poudrt 
. epl ces, opl uffl, sol e, iritie, t*hl sky , or , di vers 
3230 DATA 1,6.1,16,9,2.4.14,1,1,6,3,1,1, 
15,1,11.1, 1,16 

3260 DATA 9,13,2,1,1,1,15.1,2,10,1.4,1,1 
, 1.14.9,2, 13, 1 

3300 CALL M0TI0N(»1.0.0.»2. 0,0)i t CALL S 
(100.-3,0) I: CALL SPRI TE (#3, 72, 11, VI. 240 
,0.-10) 

3310 CALL C0INC<»2,»3, 
»3, Y1.8.20.K 1) : : TF I l 
TE<"3> :i GOTO 1630 
3320 IF NOT V THEN 3310 

3330 CALL S (30O, -7, 0) i : CALL PATTERN(tt2. 
76) t: CALL COLOR (»2,7> : I NEXT I ll GOTO 
1B00 

3400 CALL MDTI0N(«1 . 0. 0,02,0.0) : ! CALL S 
(100,-3,3)11 CALL SF'RITEI*4,68, 1I.V2, X2. 
0, 10) 

3410 CALL C0INC(#1,»4,6.K) 
3420 IF NOT K THEN 3410 

3430 CALL S(300,-7,0) i : CALL PATTERNdtl, 
76) i : CALL COLOR (tl . 7) i t CALL DELSPRITE( 

DISPLAY ATI13, 1) t 



3430 B-0 i ! GOTO 1320 

4000 CALL DELSPRITE(ALL)n CALL CHAR(84, 

•' 00000 10 1 1 0307070F0F0F0FE 1 7F3F I FOOOOOO " 

fcRPT*("E0" t 8)fc"E70FFEFCF8") 

4010 CALL CLEAR :i CALL CHAR (64, "000000" 

&RPT»("07",B>&"E7F07F3FlF0000B0B0BOC0EOE 

UFOFOFOF087FEFCFB") 

4020 CALL CHAR(68.RPT*C'F-, 16) .72. "OOOOO 

103061F71FFOOOOBOCO6OFB8EFF000OPFFF66FFC 

3FF") 

4030 CALL CHAR(BO,RPT*("F", 16) ,88.RPT*C 

IB", 8). I28,RPT*C-0B",S), 136.RPT* ("F", 16) 

403! IF Zl-l THEN ZZ=LL ii DE-5 it POEI= 

lb it CAR-b4 t! P0-24O ELSE ZZ-L II DE~- 

Z i: POSI-240 ll CAR-B4 it PO-10 

4032 RESTORE 3250 it FOR 1-1 TO IZ is RE 

AD C1,C2,C3,C4,CS II NEXT I :t CALL COLO 

R(3,3, 1,6,C1,1,7,C2, 1 , B, C3. 1 , 13. C4 . 1,14, 

C3. I ! 

4035 CALL SCREEN (8) tt CALL HCHAR ( 16. 1 , 68 



.ZZ 



NEXT I 



READ I 



4070 FOR I"l TO 6 it READ UW,XX,YY,IZ 
CALL HCHAR (WW, XX, YY, ZZ) t t NEXT I 

4080 CALL SPRITE (#1. CAR; 7, 105, POSI , O. DE) 

:: CALL W(600)ti CALL M 

4090 CALL C0INC(«I1. 1O4.P0, 16, K) ; i IF NOT 
► THEN 4090 

4100 RETURN 

4500 SUB W'T) 

4510 FOR 1-1 TO T : i NEXT I 

4520 SU&END 

4550 SUB S(A.B,C) 

4560 CALL SOUND(A.B.C) 

45 70 SUBEND 

4600 SUB l 

4620 FOR 1 = 1 TO 3 ti CALL S (-10. 1 864 . 0) t 

t CALL Sf-10, 2489,0) t l NEXT I 

4630 SUBEND 

4630 SUB M 

4660 DATA 1109.1109,1109,1243,1480.1661, 

1661, 1864.2217.2217. 1489, 1864. 1480, 1109, 

932. 1 109, I 109 

4680 RESTORE 4660 :: FOR I»l 

AD A :: CALL S(173,A,0)tt CALL S(l. 110.3 
■;ext I 

4690 SUBEND 

47'Xi SUB E 

4710 CALL HCHAR(20. I, 126. 160) 

4 720 SUBEND 



25 



OIL PANIC 



Une fuite chez vous, vite prenez un seau et recuperez 
les gourtes qui tombent avant d'etre innonde. Facile ? 
Oui mais pas lorsque toute votre tuyauterie est ma- 
lade. 

Frederic MASSON. 
Mode d'emploi : 
Les touches 5 et 8 



i 



REM 
HEM 
REM 
4 REM 



pan i 



pi ■ 



9*r«9t 
roiiON r rider 



. REM 

7 REM »pt;tnj» 48/16 * 

8 REM ***************** 

9 GO 5UD 700: LET tncrt 

sue 2000 go sue 800 

10 LET x«7 

15 LET xba-37 

20 LET ai> I 

55 LET ifld"l 

33 LET XX -7 

4© let i -aa 

45 LET nbr.O 

50 LET b««"*" 

60 LET sc-0 

70 LET ba-a 

75 LET V|i n " 

79 LET pr««33 

80 LET StC>33 
ei LET I ro-23 
§2 PRINT RT 17 



PT 18, 



************** 

r goutu 



******** 



95 rem i 

98 REM 
97 REr, 
93 REM 

99 REM 1 

100 LET a«INT (RN0*3*1) 

no let c« (»»5) +ia 

111 PRINT ST 9.8; "SCORE", AT 11, 

*iia PRINT RT 5,5, "Vie", PT 7,B;V 

120 PRINT PT X,C, INK 3,«B 

123 PRUSE 2: SO SUB 600 

130 IF x.12 THEN 00 TO 170 

140 LET x-x+i GO SUB 500 

150 PRINT PT X-l, C, " " 

180 GO TO 120 

161 REM •»##•#*•*♦»##*»♦»**»#•* 



162 REM 

163 REM 
16* REM 
165 REM 



2<ni goutu 



******************** 

170 LET b.INT tRN0*3+l) 
180 LET d*(b#5> -12 
182 GO SUB 1000 
167 LET XX. 7 

" SCORE";RT 11, 



188 PRINT PT 
6,SC 

189 PRINT RT 



5,5, "Vie-.PT 7,5, V 



INK 



GO 



190 PRINT PT 

SUB 500 

300 IF x«17 TMEN GO TO 300 

205 GO SUB 500 

210 PRINT PT X,C; INK T.il 

220 PRINT RT XX, d, INK 3,»» 

230 LET X-X+l; GO SUB 500 

235 GOSUB 500 

240 1-eT xx.xx+1: OO SUD O0» 

250 50 SUB 500 

aeo PRINT PT X-l.C, " 

270 PRINT RT XX-l,d," " 

275 GO SUB 500 

280 GO TO 200 

300 IF COi THEN GO SUB 3000: G 

TO 330 

310 LET SC=&C+20 

315 let ba-ba+1 

320 IF ba> 10 THEN GO SUB 600 

330 LET x-7 

331 REM *********************** 

332 REM 

333 REM RBTOUR 1ERE GOUTe 

334 REM 

335 REM H.HHHutt.mimn 
340 LCT a»INT <RN0»3*1> 

350 LET C«(a*5> +12 

351 GO SUB 1100 

355 PRINT PT 9 ,5, "SCORE" , RT 11, 

5; *c 

356 PRINT PT 5 ,5, "VIC" , PT 7,5, v 
4 

360 PRINT PT x,C, INK 3;a« 

370 IF xx«17 TMEN GO TO 450 

380 GO SUB 500 

390 PRINT PT XX, d, INK 3, It: GO 

SU8 500 

400 LET XaX+1: GO SUB 500 

410 LET xXoXxtl 

415 GO SUB 500 

420 PRINT PT XX-l,d," '" 

430 PRINT PT X-l, C, " 

440 GO TO 360 

450 IF dot TMEN GO SUB 3000: G 

TO 480 

460 LET SC.SC+20 LET ba*b«+l 

470 IF ba*10 TMEN GO SUB 800 

480 GO TO 170 

495 REM 

496 REM 

497 REM 

498 REM 

499 REM 
510 IF INKEY»."I 

17. i j " ";RT ie 

PRINT RT 17, 



* *** 



Itlltii 



DePLPCBMENT 




************* 

THEN PRINT PT 

"; LET )*i 

■* ,HT 18, i; " 

THEN PRINT RT 
" "i LET i»i 
•■J",RT lM,li 

, ************ r 




VAPPLE 

Suite de la page 21 



aDBD- AD ED El E9 F3 AO F6 EF 
6DB8- F3 F3 AO FO E3 F2 E4 E3 
.SOC0- FA AO F3 EE E3 AO ft E9 
4DCB- E3 AO E3 EB El Fl F3 ES 
6D00- AO £6 EF E! F3 AO Fl F3 
6DD8- E3 AO EC E3 AO 01 C9 D8 
60E0- AO EF F3 AO F3 EE E3 AO 
60EB- E4 F3 F3 E3 BD F6 EF F3 
40FO- F3 AO El F4 F4 E3 E9 EE 
4DFB- F4 AE BD 80 14 OF 13 03 
4EP0- 08 03 20 20 20 20 20 20 



°.i- REN 

597 RCM 

598 ReM 

599 REM ***** 

600 FOR ' 



FIN OU BPRIL 



610 

Q" ; PAUSE 
T 15,8," " 
615 PRINT PT 19,8, ' 



9" 



0*3 HK1NI Ml **V , I - i. , 

630 IF ind«l THEN PRINT PT 20 . f 

, '■©" LET ind>2. GO TO 650 

640 IF ind=2 THEN PRINT PT 20, f 

, "Oj" LET ind>l 

650 PPUSC 4 

660 NCXT f 

661 LET xb*«xba-a 
665 FOR f >9 TO i-l 

670 PRINT RT 17 , f , " " , PT 18 , f , 
PRINT RT 17, f +1, "W'.PT 18 



981'lfS 



RePO a POKE 

f 

RePO a : poke 



RERD a : POKE 
f 

repd a : pokb 



698 LET ba-0 

ETURN 

EM *********************** 

701 REM 

702 REM IfiPhiqut 
783 REM 

704 REM *********************** 

705 DRTR 0,0,0,24,24,24,246,246 
710 DRTR 248,248,24,84,34,0,0,0 
720 ORTR 15,18,32,64,64,128,126 

,126 

781 OPTP 34,34,60,186,128,136,8 
0,0 

732 DRTR 355,139,139,365.365,34 
.34,355 

730 FOR f«0 TO 7: REPO a: POKE 
USR "b"+f,*: NEXT " 

731 FOR f.0 TO 7: 
USR "C"*f,»: NCXT 

733 TOR f«0 TO 7: 
USR " l -+f,*: NEXT 

733 FOR f»0 TO 7: 
USR "»"*f , 1 : NBXT 

735 FOR F b0 TO 7: 
USR '-U" + f,a; NEXT 

740 OPTP 15,31,63,127,127,355,3 
55,355 

741 FOR f«0 TO 7: REPO 4: POKB 
USR "«"+f,*: NBXT f 

743 DRTR 255,340,334,192,192,12 
8,136,138 

744 FOR F-0 TO 7: REPO a POKE 
USR "f + f,0i NEXT f 

750 OPTP 60,66,129,365,366,139, 
66,60 
g 751 DflTR 60.90,153,153,153,133. 

753 FOR f-0 TO 7; REPO a: POKE 
USR ■■%■■*■(, i: NEXT ( 

754 FOR r-0 TO 7: RERD 4: POKE 
USR "h"+F,«; NEXT i 

760 DRTR 0,355,126,136.66,186,1 
36,136 

761 DRTR 0,14,31,14,36,14,136,1 
4 

768 DRTR 66,136,136.355,355,118 
.112, 112 

763 DRTR 14,14,78,126,255,14,14 
,14 

765 FOR f«0 TO 7: RBPD a: POKB 
USR "n"**,*; NBXT f 

768 FOR r«0 TO 7: RBPD a: POKE 
U5R "■"+f,a; NBXT f 

767 FOR f.0 TO 7: RBPD a POKB 
USR "0"tf,»: NEXT f 

768 FOR f.0 TO 7: RCRD a: POKB 
USR "P"+f,i: NCXT f 

799 RETURN 

800 REM **•*****»•*. »••**#•**+* 

801 REM 

803 REM tabk.au 

603 REM 

605 REM *********************** 

810 PLOT 333,144; DRPU 0,-34: D 
RRU -34,0: DRPU 0,34: PLOT 193,1 
44: DRPU 0,-34; DRPU -34,0: DRPU 

0,24: PLOT 152,144 DRPU 0,-34: 

DRPU -34,0: DRPU C24 

830 PLOT 8,48; DRPU 0,72 -"-aPU 
-3,0 DRPU 0,16; DRPU 13,0 ORRU 
- DRPU -12,0: DRRU 10,0; 



RPU 0, -73 



,16, -j", 
pf 3,18, 



RT 



j ", RT 1,38, j 
33, "■»";PT 3,38. 

630 PLOT 8,138: DRRU 0,33. PRIN 
T RT 0,1; -f": PRINT RT i.Sj'T": 
PLOT 16,175: DRPU 316,0: DRRU 0, 
-6: DRRU -8,0: DRPU 0.-16; DRPU 
-8,0: DRRU 0,16: DRPU -33,0; DRP 
U 0,-16: DRPU -8,0: DRPU 0,16: D 
RPU -32,0: DRPU 0,-16: DRPU -8,0 
: DRPU 0,16: DRPU -113,0 

840 PLOT 16,136: DRRU 0,84, j ^. - . u 

. p A X JiT ji t . .u . A ^uj sy 




CKP CJHIuD ^ ^^ 

INK a; "9*** 3008 PRINT RT a ,86, "NM" , RT 3,3," 

854 PL0T18 , 138 : DRRU 2,0: DRRU UOUS ETES OP" 

0,4. DRRU 3,0: DRPU 0,-6: DRRU 2009 PRINT RT 5,3,"GRUCHE 

-2.0 DRPU 0,4: ORPU -2,0 j 5 >" 

655 PRINT RT 20,39, INK 2: " — " 3010 PRINT RT 7,3;"DR0ITE 

, RT 21,29, INK S, "99" < ■" 

860 FOR f»0 TO lOSV NEXT f 3020 PRINT PT 9,3;" 4 

900 REM HtHlllHiiilltHiitii 30 " 

901 RBM 8030 PRINT PT 11,3; " G 

903 REM dapart 60" 

903 REM 80*0 PRINT PT 15,3, "'.'OUI but t» 

904 REM tt<IIIHfllt«itt*>t«iit t d« fiCUPtrtf ",PT 16,3, "L€ max 

905 FOR f-15 TO 7 STEP -1: PRIN i»U» dt 90utl«S qu»",RT 17, 3, "5' 
T RT f,l,"B"; PRU3E 3: NEXT f, F tChapptnt dCS 3 CUVSS'.PT 19,7," 
OR f*4 TO 1 STEP -1. PRINT PT f, BONNE CHRNCE ! I" 

l,"i": PRUSE 2; NBXT f: PRINT PT 3045 PRINT INK tncre.PT 31,5, RP 

0,l,"e";PT l.aj-F": FOR f «8 TO PUYBR SUR UNe TOUCHE " 

17: PRINT RT 0,f,"H": PRUSE 8: N 2046 PRUSE 3 

BXT f 2048 IF INKEY»o"" THEN CL5 RE 

910 PRINT RT 1,17; "1", ftT 3,17," TURN 

■" 3050 LET encr«>«ncre*l 

911 FOR f»18 TO 22; PRINT RT 0, 3060 IF *ncre«6 THEN LET «ncrt=0 
f,"m" NBXT f; PRINT RT 1,38, "■" 8070 GO TO 8045 

, RT 8 ,33, "■" 2500 REM ...ni..i.i...(ii..n. 

913 FOR f»33 TO 38. PRINT RT 0, 2501 REM 

f,"l"; NEXT f: PRINT RT 1,37; "■" 2508 REM fin de tabitau 

, PT 3,87, "■" 2503 REM 

920 FOR f»151 TO 131 STEP -1 2504 REM ********************** 

935 PLOT 140, t : PLOT 180 , f : PLO 2505 GO SUB 3100 

T 220, f 2510 LET e« = " 

930 NBXT f BRRUO VOUS RUEZ RE 

935 FOR f-121 TO 143 USSI ft TBRMINER LE TRBLERU 

940 PLOT 188, f DRRU 34,0: PLOT POUR C 

168, f: DRRU 34,0: PLOT 206, f: D ONTINUER flPPUYEZ SUR UNE TOUCMB 

RRU 24,0: PPUSE 1: NEXT I 

950 FOR f»150 TO 144 STEP -1 2Sa e LCT - xa2 «' 

951 PLOT INUERSe l,140,r. PLOT =§3™ rrT Gu.l 
I N ^ C ^ SE Mi^ 8 ?' f; PL6T INyCR3C 1 ' 2535 PRINT V RT 20,B,««t y y TO XX) 
220. f : NEXT f 254 , e LCT xx « xx + l; Le f y,s)«yw*l 

^ff BFTUDN 255C lr **"!" Th = N CO TO 3560 

All 551°*^.-. 255a PRUSE 3 

i««? SI" *•*•*»*******•••*«•**» 3555 GO TO 2535 

1SS0 SE« M.rr.*.*,* 2560 FOR f»0 TO 30 

1003 REM «J«CO»pte 257e IF IN KCY«<>"" THBN GO TO 25 

1004 REM ********************** sS^r PQiiSF -t 

1005 IF b=l PND Pf€=0 TMCN GO TO ||g| £exf f 

1007 IF b>2 RND s«C-0 TMEN GO TO atWt CL5 T ° LET Xba«37 

1008 IF b-3 AND lfO»0 THEN GO TO "frO-^II "^'^ ^ """ UCT 
1010 IF b»l THEN PLOT 139,121+pr %tti GQ T SLJB''flaB 

«: DRPU INUERSE 1,22,0. LET pr«= ||l5 §g TO 82 

iSIS'lF b=3 THEN PLOT 169.131**. i§§? g|R »*** # ************ 

C 4c DRPU INUBRSE 1,38,0. LET *€C 3002 REM ptrdU 

183 dVu 5NUESSi N l P ^V 8 L 9 ET i n?0- |3| «g ^11 """ 

iSlS ^F CT nbr.6§ b TMEN GO TO 1200 ^^^^ l * " ™ EN °° T ° 

llSo R^^ 3008 GO TO 3081 

1110 IF 1.1 RND pr«-0 THEN GO TO g§?g fellNT n RT t a5.7; INK «ncrt;"a 

1130 IF »-2 PND l.c.0 THBN 00 TO So^^ET^n C r t -in C f t ♦ 1 PPUSE 3 

1130 IF *.3 RND lfO-0 THEN GO TO g 012 IF ^KEYi- ' TMEN GO TO 301 

1140 IF a-1 THEN PLOT 189,121+pr 2SH ^ S JS B ? 

t^DRRU INUERSE 1,23,0: LET pr«. £014 GO JO^l^^ ^^ ^ ^^^ 

1150 IF a>2 THBN PLOT 169,121tse 2Si? REH T ^.#S w.»#*..» » 

C. DRRU INUERSE 1,22,0; LET itc* 3§|| r| M *** #.»#»**#•»*» 

IISoSf a. 3 THEN PLOT 309,181*tr 32" 5|" «USiqut 

0. ORPU INUERSE 1.33,0 LET iro= i§|$ g|" f » ## ##t , # 

liV L ET .br.nbrtl ^§i? ^bp'p'^O 3 

1180 IF nbr=68 THEN GO TO 1300 222| Slt£ I'VS 

1199 RETURN |§32 BEEP P . 36 

ill? « M •« * lill Slip l:li 

1=|= R|« d.rn.ara goon. »3| BEEP P.25 

1804 REM ********************** W37 BEEP P , 15 

1805 PRINT RT x,C; INK 3;«» 22^5 2"£ ^ ' |® 
1810 LET x-xtl. g6 SUB 500 2|2« Sffd I' si 
1380 PRINT RT X -X.fi INK 3," ",fi 22+? g"P B'fS 
T x,c, INK 3,a«- GO SUB 500 22+A 2||5 * ' \% 
1830 IF x = 16 THEN GO TO 1350 22JS SSK 5 ' %% 
1240 GO SUB 500: GO TO 1310 52+f S F E£ g'?5 
1350 IF c. TMEN PRINT RT X , C ; " 22|i MSE P' 41 

1360°LE? 5!2 a t + "4 '■ 3§1§ S^URN 

127§ If\$:'»% X * ■■ TMEN STOP 2"? g=" * a 

1280 GO T5 3500 $\%k 5| M honu . 

1300 PRINT RT xx, d, INK 3, a J 2J2S 5E M bonu> 

1310 LET xx-xx+l: GO 5UB 500 A\xl SfS .*..., 

1330 PRINT PT XX-l,d," ",flT xx.d \\\% ?£ M v 2**1*1 *1***tmfn LET **«« 

i INK 3,a« GO SUB 600 ■■11 - TMEN LET .*. 

1330 IF xx. 16 TMEN GO TO 1353 3 J a S IF v§a 4 4 ,. TMEN LCT v ,,.- 4 

1340 GO SUB 500; GO TO 1310 * * * 

1350 IF d=i THEN PRINT RT XX, d," 3130 IF v|*"« " THEN LBT v|i"" 

" ; GO TO 2500 3140 IF V»«"" THEN LET S C »$ C +400 

1360 LBT v$«y»+"4 " 3150 FOR S .0 TO 6 

1370 IF vi«"* 4 4*" THBN STOP 3160 BBeP 0.001,40 

1360 GO TO 2500 3170 BBEP 0.001,39 

1999 RETURN 3171 BEEP 0.001,42 

2000 REM ********************** 3172 BEEP 0.001.3B 

2001 REM 3173 BEEP 0.001,43 

2002 REM prt&cniauon 3174 BEEP 0.001,37 

2003 REM 3175 BEEP 0.001,44 

2004 REM ************* ....*... . 3176 BEEP 0.001,38 

3005 CLS 3177 BEEP 0.001.45 

3006 BORDER 7 3178 NBXT f 

3007 PRP BR 7; INK 3180 R ETURN • 

^'i 9^\==^ *w /^otfoou?. *iE Vf&4$ ft»oje" 
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OSCISPOl 



Creer une atmosphere "bofte de nuit" grace aux delires 
colores de votre ORIC. 



ORIC1/ATMOS~\i 



ftiAKK 



Chnstophe LEMAIRE 



Mode d'emploi: 

Apres avoir lance le programme mettre une cassette de musique et 

suivre les instructions du programme. 



12 REM OSCISPOT 

13 REM 

14 REM 

13 REM «cnt P»f 

16 REM LEMHRIE Chriftofh* 

17 REM 

18 REM ***MHRSt*85**(*>*** 

19 REM 

21 REM 

22 REM PRESENTATION 

23 REM 

24 REM 

30 TEXT CLSPRPER8 INK* 

40 POKE 426ft. 10 

50 DQK£t386, 42710 

60 POKE 48036.0 

70 G03UB 2400 

100 GOSUB 2000 

120 DftTR80,63,8,23 .0,112 .00.130 

130 DflTH 160,112 .160,23 .80.0 

140 DATA 80-65 

130 FOR fi»0 T07REHD I.J 

160 X<fl>-l'Y<fi)«J'NEXT 

170 REM 

171 REM 

172 REM 

173 REM MENU 

174 REM 

173 REM 

176 REM 

200 TEXT CLS'POkE 42bA.10 
210 POKE •BBP3.H 
220 PLOT10,8."O -OSCILOGRflPHE" 
230 PLOT10,10,"S -SPOTS" 
240 PLOT10.12.-B -BASIC" 
245 PLOT 18,14, "V -SENSIBILITE" 
250 PLOTS, 20. "Entr*z votr* C0Mm«r> 
*■ 



280 PLOT27.20." ":WAIT40.fl4-KEY* 

290 UNTIL R*<>*" 

300 PLOT 27,20. P.* 

310 IFR*«"0"THEN 500 

320 IFR*-"S ,, THEN 1000 

330 IFA«-"B"THEN PLAY 0.0,0.0'IFP 
EEK< 40000 >-»R9THEMCALL#247ELSE422P 

333 IFA*-"V"THEN 1060 

340 S0UN04.3, 16'PLflY0.1,2.328 UFU 
T13PLRY0. 1,1.680 

350 URIT10.PLOT27.20." " 

360 GOTO 260 

490 REM 

491 REM 

492 REM 

493 REM OSCILOGRflPHE 

494 REM 

493 REM 

496 REM 

497 REM ** PRESENTATION ** 
490 REM 

508 PL0T3.22."0K. Pre*. Pour I'OSC 
ILOGRAPHE" 

510 FOR 8-000 TO 700 STEP -9 

515 SOUND 1.A.16 

520 SOUND EiH+3,16 BOUND 3.fl+*-16 

530 PLHY7,0,4.380 NEXT 

540 PLAY 7,0. 1 .3000 

550 UfHT 28 'HIRES -PRtNTCHR*' 17 '. 

360 PRINT'PRINT" Envoys I* « 

uaiiue <»vP )'" 

570 PRINT"«t *PPuw«z ur* tourh* P 
our connenctr" 

300 R*-KEY* GET 8* 

390 fi*-"HOP.C'»»t Pirti ■ 




393 B*-"«coutei *t REGARt'EZ " 
600 PRINTCHR*C30.i. 
603 FOR A-l TO 2 X-I9-LEN' A»./2 
61B Y-37-XF0RB-1 TO X 
613 PRINT" C"CHR«f8>, SOiJN[> l.$n0 
,16 
620 PL8Y 1,0,2.70 NEXT 
625 FOR B-B TO Y 
630 PRINTMID«<A*.B-X,1 ."E"CKP*(8 I 

635 SOUND1,8B0.16 PLRYl.a.1.48* 
640 WHIT 3 NEXT 
643 FOR B-B TO 36 

650 PRINT" C"CHft*<8>. SOUND 1.H99 
,16 
635 PLAY 1,0.2.70 NEXT 
660 PRINT" '■ fta-B* NEXT 
690 A*«KEY» 

695 REM 

696 REM ** OSCILOGRflPHE ** 

697 REM 

700 DQKE430S.4FFFF D-100 FOR 8-1 

TO 2 STEP 
226 CURSET 0.D.1 FOR X-8 TO 2 <0 S 

TEP4 
720 CALL «405V-t50-PEEK(440(ii 
730 DRAM 4.V-D.1D-V NEXT 
740 IFKEY*0""THEN 768 
730 HIRES PRINTCHRtr 17) NEXT 

755 REM 

756 REM » RETOUR AU MENU t 

757 REM 

768 D0KE4386. 42718 

770 PRINT"' OK >* K'lrrH-,,- PLAY 
1.0,0.8 FOR 8-12 T01 STEP-1 
780 MUSICl.3,8, 13 WAIT4MUSIC1.2. 
B,13'WfiIT 3 ■ NEXT ' PLAY0 . 0,0.0 
790 PRINT'PRINT" ftPPusM SUP .in 

800 fli-KEY* GETA* GOTO 200 

990 REM 

991 REM 

992 REM 

993 REM SPOTS 

994 REM 

995 REM 

996 REM 

997 REM * CHOIX DES SPOTS * 

998 REM 

1800 PL0T5.22, "OK. Pre*. Pour !■>; 
SPOTS" 

1010 FOR 8-800 TO 780 STEP -9 SOU 
NO 1,8. 16 

1020 SOUND 2,8*3,16 SOUND 3-A«*-l 



1850 WAIT 30 CLS 

1060 PLOT 6.8."1-$P0TS ISOLES" 

1070 PLOT 6,10,"2-SPOTS TQURNRHTS 

1080 PLOT 5, 16, "Entre; untr* cnm* 

1098 REPEAT PLOT 27, 16, "+" < WRIT 4 

e 

1100 A«-KEY*'1F ft«<>"" THEN PULL 
GOTO 1130 

1110 PLOT 27.16.32 WAIT 49 R*-KEY 
c 

1120 UNTIL A*0"" 

1130 PLOT 27, 16, A* 

1148 IF A*-"l" THEN 1200 

1130 IF A*-"2" THEN 1500 

116? SOUND 4,3-16 PLAY 8.t.?.3?8 
WRIT 15 PLRY 0, 1. 1 .688 

1170 PLOT 27,16.32 



1180 GOTO 1890 

1190 REM 

1191 REM 

1192 REM SPOTS ISOLES 

1193 REM 

1194 REM 

1193 REM «* PRESENTATION »* 

1196 REM 

1200 HIRES PRINT CHR*<17> 

1210 PRINT" SPOTS ISOLES" 

1220 PRINT" j'tcout* fft r*9*ro> 

1230 PLBY 0,1.2.300 WAIT 40 

1240 PLAY 0.4 1, 130URIT50 CLS 

1250 PRINT PRINT" Etwomm 1* 



: i r ( 



ivp :< 






1278 PRINT"«t *PPi 
Pour C0"iFitnc»r " 

1280 fl*-KEY4 GET A* D-0 D0KE4386- 
4FFFF 

1290 PRINT PRINT PRINT" C'Mt 

P«rti " 

1300 CURSET 74,0.0 FILL 199,1.16 

1310 CURSET 154.0.0FILL 199.1.16 

1313 REM 

1316 REM <» 3P0TS ISOLES #* 

1317 REM 

1320 FOR R"0 TO 1 STEP CALL 44? 
3 

1330 B»PEEK( 4400-W0+2 

1333 IF B>7 THEN B-B-7 'GOT01335 

1340 CURSET X(B),Y(B),8FILL 62.1 
,B*16 

1330 CURSET X< D >. Y( D ), 8 F ILL Z? ■ 1 
,9 

1360 D-B IF KEY*'-"" THEN 1380 

1370 NEXT 

1373 REM 

1376 REM « RETOUR RU MENU * 

1377 REM 

1308 DOKE 4306.42710 njRSET ;<([,>, 
Y(D>.0'FILL 62. 1.0 

1390 PLRY 1,0,0,0 FOR R-400 TO 50 
STEP 8 

1400 SOUND 1,880.14 WRIT 3 

1410 SOUND 1,11,14 WAIT 3 - NEXT 

1420 PLRY 0,0.0,0 

1430 PRINT'PRINT " OK. j* m'«rr»». 

1448 PRINT " iPP L .>.«t sur- une ►<-•" 

1430 FIB-KEY* GET fl* GOTO 208 
1498 REM 

1491 REM 

1492 REM SPOTS TOURNRNTS 

1493 REM 

1494 REM 

1493 REM * PRESENTATION * 
1496 REM 

1500 HIRES PRINT CHR0(17i 
1310 PRINT" SPOTS TnuRNRNT^" 
1320 PRINT" j'»cou*.» -» r-»9*ro> 
Z". 
1330 PLRY 0.1,2.300UflIT 40 
1548 PLAY 0.4.1, 130 WRIT 58CLS 
1330 PR1NT:PRINT" Env/o»»z 1» 

1560 B-< 4400 "-18*1 
1570 PRINT"»t iPP.i>«f Utlt tO'.-Ch« 
Pour coKiner.ctr" 
1588 Ai-KEYI GET fl« D-l 
1398 PRINT PRINT PRINT" Cm* 

1600 CURSET 74,0.0 FILL 199. 1 16 
1610 CURSET 154.0.0 FILL 199.1-16 
1620 WRIT 48 PRINT PRINT D0KE4 ■:?■■ 



, «FFFF 

1640 REM 

1641 REM * SPOTS TOURNRNTS * 

1642 REM 

1650 FOR R-0 TO 1 STEP CRl L 440 
S 

1660 B-PEEK' 4400)^10+1 

1678 IF B>7 THEN B-B-7 G0T01678 

1688 FOR Al-1 TO D 

1698 CURSET X(fil ),Y(flI >,B'FILL62, 
1.8 

1700 NEXT 

1710 FOR fll-1 TO B 

1728 CURSET X(A1 ),Y(A1 >.0:FILL 62 
,1,I6*A1 

1738 NEXT D-B IF KEYtO-"THEN R- 1 

1748 NEXT 

1745 REM 

1746 REM * RETOUR RU MFNI I * 

1747 REM 

1748 FOR A-l TO 

1738 CURSET XCfl ), Yr R >.0>FILt 62. 1 ■ 

e 

1760 NEXT'DOKE4306.»2718 
1778 PLAY 1,0.0,0 FOR A-408 TO r M 
8 STEP 8 
1730 SOUND 1. 800. 14 WRIT 3 
1790 SOUND l.A.U'WAIT 3 NEXT 
1 688 PLAY 0.0,8.0 
1810 PRINT'PRINT " OK. <* t-'frrft 



1828 PRINT 
Ch#" 
1838 



«PPu»«I 1 



r-i-,2 

L85J 

1834 

:g?5 

1836 

'. ^.i- 
1870 



RMKEY8 GET A« GOTD 286 

REM 

DEM 

REM 

REM SENSIBILITE 

REM 

REM 

REM 



) FOR A-16 TO 16-S STEP-1 
) PLOT 30, A, 17 NEXT 
) PLOT 28.6."9":PL0T28.16."a" 
) PLOT 3.28. "Plus ssnsibW 



1903 PLOT 3.21."MolTO 



.lbl» 



1910 PLOT 3.22. "M*nu 

1920 REPEAT P-PEEI" 4*08 I 
1930 IF P-48F AND S<10 THEN S-S»l 
PLOT 38, 16-S. 17 

1940 IF P-MC AND S>0 THEN S=S-I 
PLOT 30.13-S.32 
1950 UNTIL P-tHF 

1968 POKE 4433.255-5^0^200 

1989 END 

1990 REM 

1991 REM 

1992 REM 

1993 REM SOUS PROGRAMME EH 
lil?4 REM LRHGUHGE MRCHINE 

1995 REM 

1996 REM 



1997 REM 

1998 REM »t t'ONNEES *t 

1999 REM 

2000 0-8 

2010 fli-"A8082eit-04006R282E0104" 
V-434 



V-910 

2017 G0SUB2188 

2820 A*" " 9D08046848RD0803AD0De3 " 
V-675 

2022 GOSUB2180 

2023 «+■■' 932918F9F9RD09P348R<»FF' i 
V-973 

2027 G0SUB2188 

2030 A«-"FF8D090368C?FC686?6e^l5" 
V-1261 
2832 GOSUB2100 
2878 GOTO 2218 
2890 REM 

2091 REM »< CHAPGEMENT »* 

2092 REM 

2100 FOR A-l TO 20 STEP 2 

2118 P-VAL("i"»MID8f M,H.Z>i 

2128 S-S*P 

2130 POKE «485*D.P D-D*I 

2140 NEXT 

2158 L-L*l 

2168 IF S-V THEN S-8 RETURN 

2170 PRINT PRINT>PRINT" EUPREUR 

DE DONNEES LIGNE "2005*L»5 

2180 PRINT" Viviln rt^nrt ct 
lie cl" 

2190 FOR A-l TO 3 MUSIC 1, A, 1,12 
WAIT 6^ NEXT 

2200 PLAY 0.0,0,0 END 

2203 REM 

2206 REM * RETOUR AU MENU * 

2207 REM 

2210 PLOT 1,3." OK. Sou»-Pro«r»n 
i»* chlr&«" 

2220 PLAY 1.0,0.8 

2230 FOR A-l TO 5 MUSIC 1. A. 1.12 
WAIT 5 

2248 NEXT FOR A-12 TO 1 STEP -2 

2230 MUSIC 1,4, A. 12. NEXT PLAY 0.9 
,0,0. WAIT 40 

2260 S0UND4.31.16 PLAY0. 1 ,2. 1508 

2278 FORA-3 TO 26 PL0TA.3." t" 

22B0 WAIT 2 NEXT ft. PLOT R,3," - 

2290 RETURN 

2398 REM 

2391 REM 

2392 REM PRESENTATION 

2393 REM 

2394 REM 

2393 REM 

2408 RS--OSCISP0T" D-18 

2410 e*-"1810I100" 

2411 C*>" 108081 10" 

2415 FOR B-I T02 SOUND 4.3.16 
2420 FOR A-l TO LEN(Ri', 
2438 PLOT 13+A. 12.MID4KA4.fl 1 • 
2440 C-VAL<MID*(B«.A.l'" 
2450 MUSIC 1.4,C«7+1. 16 PLfiY 1,C. 
1,200 

2468 WAIT C»D+D NEXT 
2470 "SOUND 4,31, 16 PLRY 0,1.1,258 
2498 PLOT 14,12," 
2388 WAIT an>» NEXT 
2310 SOUND 1.25.16PLRY 1,0,1.308 
2320 WAIT 20 

2538 IF KEYf/V" THEN 2550 
2340 GOTO 2418 
2550 SOUND 1.388.16 PLAY1 .0.4.110 

2355 PLOT 16, 14.R*PL0T 16. 13. ft* 

2360 PLOT 12-14.14 PLOT 12-13.14 

2370 PLAY9.8.0.0 RETURN 

2600 REM 

2601 REM C'EST FINI • 
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y 7-199 BASIC SIMPLE 



Suite de la page 5 

17210 DATA 4.26,136,4.30,137,5,27,138,5, 

28,139,3,29, 140,3, 30, 141,*., 27, 142, 6. 20. 1 

43,6.29,144 

17213 OATA 6,30,143,7,27,146,7,28,147,7, 

29, 148), 1, 3, 152 

17220 CALL SOUND ( lOOO, BOO, 3, 1 10, 6, 440. 1 ) 

17223 CALL COLOR I 1 1 , 1 1 , 1 1 > 

17230 CALL CDLOR ( lO, 1 1 , 1 1 i 

17233 CALL KEY(0,B.H) 

17240 IF H-0 THEN 17233 

17243 CALL HCHAR ( I , 3, 1 17 ) 

17230 X-6 

17233 Y-12 

17260 CALL HCMARO. V, 132) 

1726S CALL BOUND C 10, 1 10. 1 ) 

17270 FOR PI-I TO SOO 

17273 CALL S0UNDUO,8O0.4>) 

17280 PH-INT(RND»2)+1 

17283 IF PH-1 THEN 17300 

17287 FOR YYY"1 TO 2 

17290 CALL COLOR ( 1 1 , 16. 1 1 > 

17295 CALL SOUND < 10. 330, 0, lOOO. 5, 2000, 91 

17300 CALL KEY(0,PP,OD) 

17305 IF CQQ-0H-(PP<>6Y>THEN 17343 

17310 CALL HCHARO.Y. 117) 

17313 Y-Y*2 

17320 X-X-l 

17323 IF Y.-24 THEN 17603 

17327 CALL COLOR 1 10. 2. 1 1 ) 

17330 CALL HCHAR < X . Y. 132) 

17331 CALL SOUNDI 10. 110.3) 

17332 CALL HCHAR (6. 10. 105, 1 7> 



7333 CALL HCHARC6.9. 1<J 

7334 CALL SOUND (10, -6. 

7335 CALL HCHAR(6,9. 11 

7336 CALL HCHARCX.Y, 1 1 7> 



17337 X»: 

17T-3B CALL HCHAR(X, Y. 152) 

17339 CALL SOUND I 1 O. 800. 3) 

17340 CALL COLOR ( it . 1 1 , 1 1 1 

17344 GOTD 17500 

17345 NEXT YYY 
17330 GOTO 183O0 
17300 NEXT PZ 
17605 FOR 1-6 TO 22 

17610 CALL S0UND(10.2000-I»10,Ci,2004-I« 

0, J.200B-HH0.6) 

17615 CALL HCMAR(I,25. 1 17) 

17625 CALL HCHAR ( I . 25. 1 28) 

17635 CALL HCHARU.23.1t7) 

17640 NEXT I 

17643 FOR tK-1 TO 10 

17650 CALL SOUND I 10, -6, Kk»2) 

17655 NEXT KK 

17660 CALL HCHAR ( 22. 25. 1 28) 

17690 X=22 

17693 Y-25 

17700 FOR JKL=1 TO 200 

177o5 HH-1NT(RND»6)*2 

17710 CALL VCHAR( 10*HH. 16*HH, 106. 13-HH) 

17712 IF Y-16*HH THEN 2O0OO 

17713 CALL S0UND(10.-5.9) 

17720 CALL VCHARI10+HH. 16*HH. 32. 13-HH) 

17725 CALL hEY(O.K.S) 

17730 IF (S=0) *£K'. >83) THEN 1 79O0 



17733 


CALL HCHARfX. Y.32) 


17743 


Y-Y-l 


17748 


IF Y- -16 THEN 30000 


17735 


CALL HCHAR (X, Y. 12B) 


17900 


NEXT JKL 


18300 


CALL 50UND(100.-6.0> 


18302 


CALL COLOR! 10.2, 111 


18303 


CALL HCHAR (6, 10. 105. 17) 


18310 


CALL HCHAR(6.9, 104) 


18320 


FOR 1-1 TO 500 


18325 


NEXT I 


1 B330 


CALL S0UNDU00,-7.0» 


18340 


GOTO 20OOO 


18500 


CALL HCHAR(X,Y, 117) 


18505 


X = X-1 


18510 


Y = Y*1 


18315 


CALL HCHARCX.Y, 120) 


18320 


FOR 1-1 TO 33 


18525 


CALL S0UND(-10O, 1 10+ « I »39> . 3) 


1B330 


NEXT I 


18333 


CALL CLEAR 


18S40 


GOTO 17000 


19000 


CALL HEY(O.HH.JJ) 


19005 


IF JJ«=0 THEN 19033 


19010 


IF HH-63 THEN 19015 ELSE- 19035 


19013 


CALL HCHARCX.Y. 117) 


19020 


Y-Y*l 


19022 


IF Y-29 THEN 18300 


19023 


CALL HCHARCX.Y, 120) 


19030 


CALL SOUND (60. 8BO.0) 


19033 


RETURN 


19995 


FDR 1-1 TD 40 


19996 


CALL S0UND(30,3000-(I«30) .3) 


19997 


NEXT I 


20000 


CALL CLEAR 


200 IB 


VIES-VIES-1 


20020 


CALL SCREEN! 11) 


20025 


FDR 1-1 TO 16 


20030 


CALL COLOR!!. 2. 1 1) 



200Z5 NEXT I 

20040 PRINT t'UOUS PER0E2 UN MEMBRE DE*: 

:"L-EXPEDITION.. ."it: 

20045 IF VIES 1 THEN 2O06O 

20047 IF VIES=1 THEN 20033 

20050 PRINT "C'EST VOTRE DERNIERE ERREUR 

"::"CAR T0U5 LES MEM8RES DE LA"i:"FOLLE 

EXPEDITION SONT MORTS'"n 

20052 FRINT "( Y COMFRIS VOUS • ' ) " I ; " D 
0I4MAGE ..." I I I i 

20053 GOTO 21000 

20055 PRINT "IL NE RESTE QUE VOUS..."i:" 

ALLEI.UN PEU DE COURAGE ""in 

20036 GOTO 20065 

20060 PRINT "MAIS IL VOUS EN RESTE'IVIES 

t " . " i 1 1 : "BONNE CHANCE ■'■... "( t 

20065 FOR 1-1 TO 300 

2O070 NEXT I 

20072 CALL SCREEN (2) 

20073 ON T8 GOTD 233,16320,17000 
21 000 END 

300O0 CALL CLEAR 

30020 CALL SCREEN IS) 

30030 PRINT " BRAVO I " i t I "OUI .BRA 

VO.CAR VOUS AVEZ-i:*nENE A BIEN VOTRE RU 

DE ET-i;"COURAGEUSE MISSION..." 

3O040 PRINT ii t i ::"TOUTES DES FELICITATI 

ONS ■ " i : i i 

3003O FRINT "VOULEZ VOUS REJOUER T"n 

3OO60 CALL KEY!0,K,S> 

30070 IF S*0 THEN 30060 

30000 IF K-79 THEN 100 

30O90 CALL CLEAR 

30100 PRINT " A D I O S . . . "Hilllll i: 

30110 END 

32300 nO-33 

32303 MD-MD*9 

32510 GOSUB 32505 



LE LOGICIEL DE LA SEMAINE 



LE CRIME DU PARKING 

DE FROGGY SOFTWARE POUR APPLE 



Ce jeu, dont vous voyez lagui- 
chanle pochette sur la pholo 
ci-dessus. esl le nouvel avatar 
des concepteurs de Paranoiak 
et d'Epidemie. 

C'est un bon jeu, du moins 
selon mes criteres personnels 
il ne parle que de sexe, de 
drogue el de violence. Le ro- 
ck'n'roll n'est pas loin non plus. 
ce qui ne gache nen 
Ceux qui ont sue sur les deux 
pr6cedent.es oeuvres de 
Froggy Software non! encore 
rien vu. Non seulement le vo- 
cabulaire est bien plus etendu 
que dans ces deux brouillons, 
mais de plus I'histoire esi 
dune complexity a faire fremir 
Franz Kafka lui-meme. D'ail- 
leurs. celui-ci nous a confie 
avoir eu beaucoup de mat a 
comprendre le mode d'emploi. 
II est vrai qu'il ne parle pas un 
mot de francais, ce qui n'ar- 
range rien. 

Bon. C'est un jeu d'aventure. 
Et aventure II y a ; vous, grand 
detective priv6, retrouvez par 
hasard (ou par habilude) le ca- 
davre nu d'Odile Conchoux 
(Pepe Louis nest pas loin !) 
Strangle dans un caddie sur le 
parking dun supermarche, par- 
don, un supermarquette a 
cause que c'est un jeu fran- 
cais. Un raplde coup d'oeil 
vous apprend que les bras de 
la malheureuse son! couverts 
de piqures, ce qui vous induit 
a penser quelle prenait son 
pied plus avec une seringue 
qu'en ecoutant les oeuvres 
completes de Douchka. 
Le supermarche n'est pas loin. 
Mu par votre instinct fouineur. 
vous decidez d'aller y faire un 
tour pour mater un peu Ten- 
droit oil travaillait Odile comme 
vendeuse au rayon plante. Et 
la. c'est l'horreur : tout le 
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monde est susceptible d avoir 
commis le meurtre. Les accu- 
sations et les insinuations reci- 
proques pleuvent. 
Le plus enervant. la-dedans, 
c'est que lorsque vous deman- 
dez "pourquoi ?" I'ordinateur 
vous repond "parce que" 
Obeissant a votre determi- 
nisme le plus strict, vous tapez 
"parce que quoi ?" et impertur- 
bable, on vous repond "parce 
que c'est comme ca". Inutile 
de demander pourquoi, vous 
deviendriez fou. 
Kolossal avantach : ce soft ne 
vaut que 190 balles. Les edi- 
teurs sont devenus fous et ont 
decrete que pour ce prix la, il 
devenait inutile de pirater le lo- 
giciel C'est bien la premiere 
fois quon voit un programme 
Apple si bon marche. Si bon 
tout court aussi, d'ailleurs. Re- 
soudre Masquerade, a cdte. 
c'est du gateau. Aux prunes. 
Un dernier true, qu'honteuse- 
menl |e subtilise a la gre- 
nouille : la premiere partie du 
code qui donne acces au cof- 
fre de la defunte, c'est ED24G. 
Fallait trouver. 



PEPE LOUIS CONTRE LE GANG DES PUCES I 



PEPE LOUIS CONTHE LE 
GANG DES PUCES' 

RESUME DES EPISODES 
PRECEDENTS 

Jobard. Tramolo et Pepe Louis 
sont en cavale sur I tie de Cuba 
Ou leur avion a ete rJelourne Ms 
doivent reioindre l Europe ou 
I Ombre Verte detient touiours 
vmgt ieunes femtnes en 
olages Mais pour l heure ils ar- 
rtvent en vue d un monastere ' 

13eme EPISODE : 

L ABBE DESCOCHONS 

La frequentanon des cures m a 
toujours fianque des varices 
C'est une race qui m indis- 
pose. Pour moi. Moon. Kho- 

memy ou le Pape. cest tout de 
fa meme engeance des bouf- 
feurs de cerveaux. des ratis* 
seurs de crane, des charlatans 
de laffectil. Les promoteurs 
vereux finissent en laule. mais 
les cures contmuent de nous 
vendre des concessions pour 
le paradis sans le morndre 
ennui. C'est pas logique Jen 
suis la de mes reflexions 
quand Tramolo, suant et souf- 
flant, me rejoint sur son velo 
• C'est un monastere Pepe 
Louis. Ils vont nous accorder le 
droit d'asile . 

Son oeit devient vaguement 
salace 

et peut-etre meme le droit 
de cuissage. pas vrai old 
man ? 

Et le via parti dun grand eclal 
de nre. Il a la sante le pere 
Tramolo : penser a la gaudnole 
alors que nous sommes re- 
cherches par tous les (lies de 
Cuba ' 

Je mets pied a terre et |e de* 
comce les pinces a velo qui 
me serrenl les mollets 
- Cest pas a mon age que 
vous me ferez aMer chez les 
cures ! 

A son tour. Jobard a gnmpe la 
cote. II est rouge comme ia 
place du meme nom et aftole 



comme une vierge quon va 
jeter aux requms 

- Hey Men ' Les cops am- 
vent "Des dizaines de flics en 
velo son! en bas de la cole ' 
Je viens de les voir ! 

- II faut se pianquer Pepe 
Louis 

Au meme moment i) apercoit 
le monastere el son sounre re- 
vient comme un boomerang 

- Whaouuu ' That's fine ! Les 
dieux sonl avec nous ' Ne per- 
dons pas de temps ' 

J ai beau leur exphquer que |e 
ne supporte pas tout ce qui est 
reiigieux de pres ou de lorn, ils 
m entrainent de force. 
La porte esl en bois epais. Jo- 
bard el Tramolo tambourm- 
nenl. mais ca fail autant de 
brui! qu une pichenette sur un 
bloc de beion arme Pourtant. 
le battant sentrouvre et un tru- 
culent personnage apparait. Il 
est rond. rouge (carmine Du- 
nne) et vetu dune robe de 
bure qui tombe sur des pieds 
cornes Jusque la. pa n'a rien 
d extraordinaire, vu que c'est 
tout a fait le genre d'homme 
quon sattend a rencontrer 
dans un tel lieu. Quand je vous 
aurai dit qu en plus il pone une 
enorme slereo sur I epaule col- 
lee a son oreille et qu'il se tre- 
mousse sur un rap d'enfer, 
vous conviendrez de laspect 
heteroclite de la situation 

Was ? nous demande le 
mome en aHemand gothique 
Tramolo (qui serait capable de 
vendre un cochon de lait a une 
bouchene cachere) lui explique 
le pourquoi de noire presence. 
Il fait bien comprendre au 
moine lurgence dans laquelle 
nous nous trouvons d'echap- 
per a la police montee de Fidel 
Monastono Jobard se joint a 
tut e! ces! un vrai plaisir de 
voir ces deux hommes d'affai- 
res habituellement en conflit se 
preler main forte pour sauver 
leur peau et ieur prototype Le 
monde est beau, il est ne le 
divm enfant, chantez hautbois. 
remplissez nos verres ' 



Le mome a pose sa sono el 
lette son chewing gum au loin 
dans un champ de canne a 
Sucre 11 pousse un peu plus le 
battant de la porte 
- Entrez entrez. schnell ! 
Mes deux compagnons me ti- 
rent vers I'mterieur Nous voila 
a I'abn. Tout le monde respire 
malgre l epouvaniable odeur 
de pieds qui flotte dans les 
couloirs. Tramolo congratule le 
mome et lui explique qu il vieni 
de sauver du meme coup la 
democrat* en danger el la 
technologie de pomie ' II se 
perd en remerciements ei pro- 
me! une place d honneur dans 
son conseil d administration. 
Jobard. moms demonstralif 
propose calmement de faire le 
point de la situation pour trou- 
ver une porte de sortie. 
A ce slade du recit. une bonne 
synlhese de l aventure me 
sembie elre une excellente 
idee et je le reprends a mon 
compte. 




Suite page 16 



menu 



AMSTRAO 


Zarbi Con 


G LOZAH 


Page 23 


APPLE 




C SEBBAH 


Page 21 


CANON 


Car War 
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HECTOR 


Jeu de Ctiasse 


D BULLY 
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Check Bool* 


F MOMMEJA 
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ORIC ATMOS 




C LEMAINE 
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PC 1500 


Scramble 


JM JAN IN 
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SPECTRUM 




F MASSON 
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Legends 


P BODET 
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VIC 20 
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A VOS CONSOLES Tl 99/4 ba sic etendu disponiblc 

a* 

T.I. logo N° 2 disponible 



il coble 



1 100 F □ 
500 FD 
500 Fa 
95 FD 
595 FU 
370 FD 

1 350 F D 

2500 FD 

* ISO F 

2390 F 

1090FU 



CONSOLES ET ACCESSOIRES Tl 99/4 

Mlcro-ordlnoleur Tl 99/4A Pol 

Modulateur Sec am Fiance 

Moduluieui Peritel 

Cable liaison magnelo cassettes 

Magneto cassettes Texas Instruments 

Magneto cassettes L on soy / Compleur 

Imprlmonte Seikoscha GP 50 A 

Imprlmanle SeiKoscha GP 500 

Imprlmanle Epson RX80 Iriction/ttocllon 

Machine a Genre Brother EP 44 o memoire 

Inlertace pa roll el e exterleure pour Tl 99 

Inlertace serle exierleuie pour Brother pour Tl 99 1 090 F 

Monelle de jeux Super Joy a ventouse avec 

Interlace specials supportant 2 manettes (mai) 

Manette Quick Shot II a ventouse Tir bloque 

avec adaptaleui pour 2 manettes (mal) 

PROGRAMMATION 

Extended Basic manuel liancals 

Super extended basic graph manuel Irancols 

Extension memo ire 32K exterieure 

Tl Logo n° 2 en francais livrobie avill (Module) 

Mini memone livrable avril (Module) 

K7 EPSIL0N/S0FTWARE POUR Tl 99 BASIC ETENDU 

Lunor Lander 95 FG Lunar Jumper 120 F": 

Solar system 



120FD Sum Gomes 



195 F D 
230 FD 

800 F D 
1200FD 
1340 F 
895 F a 
895 F D 



120 f: 



K7 HEBDOGICIELS SOFTWARE POUR Tl 99 

N° 3 tubls sacre Basic etendu 95 F n 

N " 4 6 |eux dont Dark Crystal Basic etendu 1 20 F 

N D 2 12 Jeux don! Roland Garros Basic etendu 150 F D 

MODULES TEXAS ORGANISATION 

Gestlon de flctilers 260 F ■ Gestlon de rapports 375 F [J 

Gestlon prlvee 360 F D 

MODULES FUNWARE POUR Tl 99/4 

Rabbli Rail . Driving Demon ; St nick . Ambulance 




mini-memoire 



disponible avril. 



asssu- 



MODULES 10ISIRS 



Connect Foui 
Jeux retro 1 
Jeux retro 2 
invaders 
Car works 
Soccer 
Zero zap 



147 FO Jeux video 2 147 F D 

147FU Theottock 147F D 

147 F D Othello 206 F D 

206 F D Munch Man 206 F LI 

147 FU Chasse aux wimpis 547 F r^ 

250 F D Video Chess 450 F C 
147 FD 



LOT N UN DISPENSABLE 

• Module BASIC ETENDU manuel en Francais 

• K7 Basic par soi-meme 

• K7 Lunar Lander 2 (simulation de vols 
spociaux) 



MODULES JEUX 

Parsec 250 F D 

Adventure pirate 350 F [ . 

Munch mobile 250 F'^ 

Buckrogers 350 F L : 

Retour flu pirate 250 F □ 

Mosh 250 F □ 

Mlciosurgeon 250 F □ 

Hopper 250 F D 

Jow breaker 250 F □ 
MODULES ATARISOFT POUR 

Moon patrol 219 F: . 

Jungle hunt 219FT1 

Pole Position 210 FT 

Protector II 250 F 



Tunnel of doom 
Moonmine 
Micio surgeon 
Popeye 
Demon attack 
Burger time 
Hopper 
Star treck 
Treasure Island 
TI99 
Defender 
Picnic Paranoia 
Donkey kong 
Miss Pocman 



350 f : . 

250 F 

250 F □ 

400 FD 
250 FD 
250 f 
250 F D 
250 F 
250 FD 

219FH 
250 F r 

250 F 
250 F 



L'ensemble : 


400 FD 




MODULES ROMOX POUR T! 99 




Princess and frog 120FU Anteaier 


120 FD 


Rotor raiders 100 F 1 ! Hen pecked 


100 f: ] 


modules Education 




Addlllon/Substractlon 




V l ou 2 147 F i I Addition Cannon 


147 FD 


Mission molns 147 F □ Wvislon/Demolillon l47 f - ] 


Weteoi -Multiplication 147 F i ] Multiplication 1 


147 FD 


Beginning Grammar 147 F L J Early Learning 


250 f a 


Nombre mogic 147 FD 






LOT N° 2 TOUT LE LOGO 








I995F 







MINI-MEMOIRE 

Ce module ne se contenie pas de 

vous ollrir 4 Ko de memoire RAM 

(olimentee por pile) permeltont la I 

sauvegarde des programmes el i 

donnees lorsque vous eteigne/ 

rordinateur. 

II a oussi : 

• 4 Ko de memoire mone (ROM) et 

6 Ko de memoire mode grophique 

(G -ROMJcontenantdesutilitoiies 

Ires inter essonts 

- acces possible a ('extension 32 K 
en Tl basic , 

- chorgement de programmes- ( 
objets ecrits en assembleur. son sur 
mtni-memoire soil sui extension 
32 K; 

- utilisation de PEEK et POKE, oppel . 
de so us -pi ogi am mes habituelle- 
ment non accessibles. 

- programme de recherche I 
d'erreurs (Eosy Bug - Debug). 

Le module 895 F O \ 



MEMOIRE 32 K tone Hon ne avec I e 

basic elendu 

E lie esl indispensable pour lo pro 

grammationenlogo Silonpossede 

la mini-memoire ou rassembleur 

eiie permet dodresser des sous- 

programmes en assembleur el de 

les execute' 

Le module i 340 f 



MODULE SUPERGRAPH - 

Un no uvea u bosic elendu avec 
35 lonctions suppiementanes per- 
mettont de tracei lignes. cercles. 
ellipses, axes diagrammes en bar 
res ou circulates Ce basic grophi 
que pie5enle2coracleiisliques Ires 
utiles une copie d'ecran. graphi- 
ques et lextes (code ASCII). Vpoke 
et Vpeek occes direct a in Ram de 
controle ecron, necessite lo me- 
moiie32K I200F 



BASIC ETENDU 

Module comprenan! un longoge de 
program motion renforcant le Basic 
du Tl 99 40 commandes supple- 
ment ires, occes au langage 
assembleur (Entries sorties) 
Sous-progrommes, Stockoge. spri 
les, troiiemont d'erreuis Expres- 
sions logiques LEI multiple Intro 
due lions multiples Acces a rex ten- 
sion 32 K 



LOGO 2 (module) 

Enseignez a voire ardtnateur 

formes, couieurs, musique. 

procedures, coracle res dessines. 

variables de tous genres, 

constructions giommolicoles el - 

orithmetiques- 

lemoduielogo 895F D 




CONTROlEURS - LECTEURS OE DISQUETTES 360 Ko 
•Corte controleur enlichoble dans boilier periphenque 
(compatible avec unites de disquettes Texas). 
Double lace, double densile, 360 Ko. 
* Unite de lecture de disquetles 5' 1/4 SLIMLINE 360 Ko 
1/2 hauteur (2 lecteurs peuvenl tenir dans le 
compartiment 'dlsque' du boilier peripherique). 

L ensemble 63O0FD 

(mal) 
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Villa 



Ces prix sont indicolils si peuvenl Aire modllies sans pieavls 
Prodults dispor 1 Dies dans la llmlte ae nos stocks en magasln 
Pomcipotion oux rials de port 81 a expedition en recom manor* 
pour ics logiciels > 30 f Se 1 



au-aessus de 5 xg oi 



ts expeditions l'6ironger 



LA BEGLE A CALCUl 

65.- 67. DP Somt Germain 75005 PARIS 

lei 325 6888 lelei ETRAV 120064 f 1 1 303 RAC 

Luraison del produits dispambles sous S lours. 
Parking graruit Mauben-Lagrange 



